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