#!/usr/bin/perl

use strict;
use warnings;

use Email::Find;

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

my $finder = Email::Find->new( \&find_email );

$finder->find(\$text);

print "Found says @found\n";

exit;

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