Help for this page

Select Code to Download

Select or download this

sub munge {
   my $num = shift;
...
END

$text =~ s/(\d+)/munge($1)/g;