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