Select Code to Download

D:\Perl\test>257026
192.168.1.1 | $2.50 | Keep | example | and | is | This | 1,500 | an
...
lists    757/s      --    -56%    -61%
strings 1736/s    129%      --    -10%
regex   1930/s    155%     11%      --

use constant RE_WORDS => qr[(?:[^\w\'\$!,.-]|(?:(?<=\D)[.,])|(?:[.,](?
+=\D|$)))+];

...
    @words{ split RE_WORDS, shift } = ();
    return keys %words;
}