#!perl -p
s/(\w)/${$0=$=-$$1;$$1=++$=;$0>9|0}/g