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