my $s = 'AGCTTCTTGCTTCTTGC';
my $pos = -1;
while (-1 != ($pos = index $s, 'GCTTCTTGC', $pos + 1)) {
    say $pos;
}