$word=~s/[^\w]//g; # Eliminate non-word chars

##</code><code>##

  $hash{$word}++;  # Get a count of the word

##</code><code>##

   keys (%hash)