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