Perl scripts dealing with fasta files