Here's one using modern Perl regex features. It's part of the perl regression tests: http://github.com/mirrors/perl/blob/blead/t/re/reg_email.t#L13 http://githu

Here's one using modern Perl regex features. It's part of the perl regression tests: http://github.com/mirrors/perl/blob/blead/t/re/reg_email.t#L13 http://github.com/mirrors/perl/blob/blead/t/re/reg_email.t#L...