my $str= "aaa aa aaa";
print "String = '$str'\n";
() = $str =~ /(?=aa)(?{print pos($str),"\n"})./g;
__END__
String = 'aaa aa aaa'
0
1
4
7
8