#!/usr/bin/perl

my $foo = "AAAA";
while ($foo =~ /(?=AA)/g) {
    print pos $foo;
}