Help for this page
>perl -wMstrict -le "my $seq = ... printf qq{'$_' } for @subseqs; " 'AAAATTT' 'ATATAT'
>perl -wMstrict -le "my $seq = ... " matched 'AAAATTT' at 12 thru 18 matched 'ATATAT' at 37 thru 42