in reply to An email regex

Have a look at Regexp::Common::Email::Address on CPAN

Replies are listed 'Best First'.
Re^2: An email regex
by fenLisesi (Priest) on Apr 07, 2007 at 09:19 UTC
    The use of Regexp::Common can be a bit confusing if you have not used it before. Here is a snippet that may help: 
    use Regexp::Common qw(Email::Address);

## and later
if ($data =~ $RE{Email}{Address}{-keep}) {
    $email = $1;
}

    [download]
    Cheers.
[reply]
[d/l]

In Section Seekers of Perl Wisdom