###############################
sub token_2   
###############################
{
 my $msg = $string;
 my $ntd = qr/(?<=\D)[,.]|[,.](?=\D|$)|[^\w'\$!,.-]+/;
 our %words;
 @words{(split /$ntd/,$msg)} = ();
 return keys %words;
}   ## token2