#!/usr/bin/perl -w

use Email::Find;

$mailbox='./mail/addresses';

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

$finder->find(\$text);