perl -anE "for (@F){s/\W//g;$_ or next; $h{$_}++}}{$k=(sort {$h{$a} <=> $h{$b}} keys %h)[-1]; say qq|The most frequent word in $ARGV is $k, which was seen $h{$k} times.|" **YOUR-FILE-NAME**