perl -lne '$c++ if /^>/ }{ print $c' fasta-file