#!perl -p s/\d/$&x$&/eg