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