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