Assuming you want to replace all numbers in the text, and not just the numbers between two substrings, I'd use:

    use Regexp::Common;
    $text =~ s/$RE{num}{decimal}/GOVALUES/g;
[download]