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