http://www.perlmonks.org?node_id=420991


in reply to Bold text

$text_to_emphasise =~ s/(\d+)/_*\1*_/g;