#!/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);