$ perl -le'() = "abcdef" =~ /..(?{ print pos() })/g;'
2
4
6