C:\Old_Data\perlp>perl t33.pl fasta.txt
Insert query:
ttag

Results for fasta.txt

TTAG compare 1 volte in posizione 108 with ID >chr1
TTAG does not appear in the sequence with ID >chrM

C:\Old_Data\perlp>perl t33.pl fasta.txt
Insert query:
aaaaa

Results for fasta.txt

AAAAA compare 3 volte in posizione 59 130 131 with ID >chr1
AAAAA does not appear in the sequence with ID >chrM

C:\Old_Data\perlp>perl t33.pl fasta.txt
Insert query:
tagcgat

Results for fasta.txt

TAGCGAT does not appear in the sequence with ID >chr1
TAGCGAT does not appear in the sequence with ID >chrM