@words = split /\W+/, $words;