Personally, I like this module. I'm looking forward to some one updating it to RFC 2822, but I did manage to come up with this:

#!/usr/bin/perl

use strict;
use warnings;
use Email::Find;

my $text = "this is some text test\@email.com foo bar";

my $finder = Email::Find->new(sub {
                                   my($email, $orig_email) = @_;
                                   print "sub says ".$email->format."\
+n";
                                   print "Found says ".$email->format.
+"\n";
                                   return $orig_email;
                              });
$finder->find(\$text);
[download]