Some people just like torturing themselves with spells like

   perl -ne 'map{$h{lc$_}++}/(\w+)/g;END{map{print"$h{$_} $_\n"}sort{$h{$b}<=>$h{$a}}keys%h}'