#!/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(\&find_email);

my ($found) = $finder->find(\$text);

print "Found says $found\n";

exit;

sub find_email {
  my ($email, $orig_email) = @_;
  print "sub says " , $email->format(), "\n";;
  return $email->format();
} # end-sub