Retrouver les emails dans un texte

Le module Email::Find permet de retrouver les emails présents dans un texte et de leur appliquer quelques traitements. Le principe est simple, à chaque email rencontré, on appelle une fonction au quel on passe un objet et l'email lui même.

use Email::Find;

sub callback {
        print $_[0] -> format ." / $_[1] \n";
}

my $text;

while(<STDIN>) {
        $text .= $_;
}

find_emails($text,\&callback);