Select Code to Download

$text =~ s/(\d+)/munge($1)/eg;
                           ^
                           |

my $number = shift;

sub eng_not {
   # Format a numeric value using engineering notation.
...
   $val =~ s/\.$//;    # delete trailing decimal point, if any
   return $sign . $val .  $prefix;
}