perl -E 'for("bababa") { say pos while /(?=baba)/g }'
0
2