our $RE_WORDS = qr[
	(?: \$? \d+ (?:[.,] \d+ )*)+
	|
	[\w\'!-]+
]xo;
sub tokenize_msg_w_m {
    my %words;
    @words{ shift =~ m[($RE_WORDS)]og } = ();
    return keys %words;
}

##</code><code>##

D:\Perl\test>257026
Regex:
$ | want | 192.168.1.1 | $57 | confusing | yword |
 hopefully | combinations | LITTEL!!!!L | a | of |
 bit | is | This | to | will | text | this | 1,500 |
 Keep | out | BITH!!!!! | it | example | work | unhapp |
 $2.50 | little | MORE | I | some | thing | with | and | an

Strings:
$ |  | want | 192.168.1.1 | $57 | confusing | yword |
 hopefully | combinations | LITTEL!!!!L | a | of |
 bit | is | This | to | will | text | this | 1,500 |
 Keep | out | BITH!!!!! | it | example | work | unhapp |
 $2.50 | little | MORE | I | some | thing | with | and | an

Match:
want | 192.168.1.1 | $57 | confusing | yword |
 hopefully | combinations | LITTEL!!!!L | a | of |
 bit | is | This | to | will | text | this | 1,500 |
 Keep | out | BITH!!!!! | it | example | work | unhapp |
 $2.50 | little | MORE | I | some | thing | with | and | an

         Rate   regex   match strings
regex   526/s      --    -13%    -26%
match   607/s     15%      --    -15%
strings 710/s     35%     17%      --