DB<129> $_='12aaa67aaaa23'
 => "12aaa67aaaa23"

  DB<130> print pos($_) while ($_=~/(a\Ga)/g)


  DB<131> print pos($_),"\n" and pos($_)=pos($_)-1 while ($_=~/(aa)/g)
4
5
9
10
11