push @words,split(/\W/, $_);