One-line Perl para extrair emails de arquivos de texto

Boa!

Faz tempo, que não coloco nada no ar, mas, lá vai.
A algum tempo precisei limpar um arquivão e tirar um monte de emails dele.
Achei esse comando mágico na internet (não tenho mais a fonte, desculpe autor..):

~# perl -wne'while(/[\w\.-]+@[\w\.-]+\w+/g){print "$&\n"}' file.txt

Ele vai devolver na tela os emails, um por linha!