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