perl ./847578.pl fasta.txt p.txt s.txt