perl -E 'for("bababa") { say $-[0] while /baba/g }' 0