cat plik|grep From|perl -wne'while(/[\w\.\-][email protected][\w\.\-]+\w+/g){print "$&\n"}' emails.txt | sort -u > output.txt