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.