my $spot = 0;
while (($spot = index $s, 'aa', $spot) != -1) {
    printf "found aa at %d\n", $spot++;
}