sub tokenize_msg_w_oneregex {
    my ($msg) = @_;

    my $re =  qr{(?:[^\w\'\$!,.-]+|(?:(?<=\D)[.,])|(?:[.,](?=\D|$)))+};

    my %words = map {$_=>1} split $re, $msg;

    return keys %words;
}