$ perl -e 'while('aaa' =~/(aa)/g){print $-[-1], "\n"}'
0