#!perl -p
s#\d#($`=~/\w/g)[-$&-1]#e&&redo