perl -pe '$n=0; s/(.)/(++$n, $1 eq "x" ? $n:$1)/ge' file.txt