perl -e"BEGIN{$/=qq[\n>]}" -ple"$. == 99 && last;" yourfile.fasta >newfile.fasta