#!/usr/bin/perl

use Email::Find;

# Simply print out all the addresses found leaving the text undisturbed.
my $finder = Email::Find->new(sub {
				  my($email, $orig_email) = @_;
				  print "Found ".$email->format."\n";
				  return $orig_email;
				  });

while (<>) {
  $finder->find(\$text);
}


