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