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

##</code><code>##

    $count{$word}++ unless exists $banned{lc $word};