Email adresų išparsinimas

cat padriki_emailai_su_tekstu.txt  | perl -MEmail::Address -e 'while(<>){print Email::Address->parse($_), " "}' > emailai.txt