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