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