my @words = $string =~ /\b(\w+)\b/;