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


##</code><code>##

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


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,