Comment lister les adresses emails d'un fichier

Ce code vous permet de lire un fichier passé en argument et liste les adresses emails s'y trouvant. Pour lancer ce programme, voici la commande à utiliser :
perl test.pl -f fichier.txt

Voilà, que pensez-vous de ce programme, vous a-t-il aidé ?