#!perl -p s/\d/reverse'',1..$&/ge