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/*