perl -ne '...' file.txt > fastafile.fa