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