Help for this page
#!/usr/bin/perl ... my $seqs = join '|', map tr/ACGT//cdr, <$patterns>; my $match = qr/^\w*($seqs)/; /$match/ and print "$1\t$_" while <$fh>;
ATCCCACCGCTGCCACCA AACCCCATCCCACCGCTGCCACCA 1 ATCCCACCGCTGCCACCA AACTGGATTCTCTGAAATCCCACCGCTGCCACCA 1