################################
sub take_3
################################
{
 my $msg = $string;
 my %words;
 @words{$string =~
   m/(
      (?:
        (?:
           [\w'\$!-]|
           (?<=\d)[.,](?=\d)
        )
       )+
      )/gx}=();

 return keys %words;
}   ##take_3