Select Code to Download

use strict;
use warnings;
...
    next if $matched < $matchNum;
    print "Found <$test> at offset $offset which matches in $matched p
+laces\n";
}

Found <TGAT> at offset 0 which matches in 4 places
Found <TGAA> at offset 4 which matches in 3 places
Found <TGTT> at offset 14 which matches in 3 places