Petite commande pour récupérer tout les mails dans un fichier ou répertoire : perl -wne 'while (/[\w\.\-]+@[\w\.\-]+\w+/g) {print "$&\n"}' /mnt/www_nfs/*