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