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