> echo xxxfooxxx | perl -pe's/\Gx/pos($_)/ge'
012fooxxx