$ perl -le '$_ = "abba"; s/b*/print pos; "^"/eg; print'
0
1
3
4
^a^^a^