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