use Email::Find; my $finder = Email::Find->new( sub { my($email, $orig_email) = @_; my($address) = $email->format; return qq|$orig_email|; }, ); $finder->find(\$text);