#!perl -p0
y/x/0/;for$x(0..8){s#$x(.{10})?\K\.|\.(?=(.{10})?$x)#$x+1#es&&redo}