As long as you're looking for literal strings instead of regex matches,

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

The increment in the loop is important.

After Compline,
Zaxo