Help for this page
file1: ATCGATGTGT ... file2: CCGATGCTGAggatgtcgcgcagatttaggCCGATGCTGAgagcatgaa...
my $matched=''; foreach (@probes){ chomp $_; ... $matched.= "$_\t$position\n"; } }