#!perl -p0
s?\w?$x[@x]=$&;(grep$x[-2-$_]eq$&,0..9)[0]//$&?eg