little change of fasta_extract_by_pattern.pl