print "$_ = $count{$_}\n" for sort { $count{$b} <=> $count{$a} } grep /\w/, map { lc $_ if (!$count{lc $_}++) } split( /[\W_]/  , join (' ', <>));