Select Code to Download

our $RE_WORDS = qr[
    (?: \$? \d+ (?:[.,] \d+ )*)+
...
    @words{ shift =~ m[($RE_WORDS)]og } = ();
    return keys %words;
}

D:\Perl\test>257026
Regex:
...
regex   526/s      --    -13%    -26%
match   607/s     15%      --    -15%
strings 710/s     35%     17%      --