I like Email::Find

use Email::Find;

# new object oriented interface
my $finder = Email::Find->new(\&callback);
my $num_found - $finder->find(\$text);

# good old functional style
$num_found = find_emails($text, \&callback);

sub callback {
   my ($addrobj, $addrstr) = @_;

   print "$addrstr\n";
}
[download]

Check the Email::Find pod for more detailed help!