my $s = 'AGCTTCTTGCTTCTTGC';
#         ~~~~~~~~~
#                ~~~~~~~~~
while ($s =~ /(?=GCTTCTTGC)/g) {
    say pos $s;
}