obfuscated Mr. Muskrat <code>#!/usr/bin/perl @__=(140,222,228,64,142,222,200,64,230,# The 222,64,216,222,236,202,200,64,232,208, # best 202,64,238,222,228,216,200,64,232,208, # verse 194,232,64,144,202,64,206,194,236,202, # of 64,144,210,230,64,222,220,216,242,64, # the 196,202,206,222,232,232,202,220,64,166,# best 222,220,64,232,208,194,232,64,238,208, # book 222,230,222,202,236,202,228,64,196,202,# ever 216,210,202,236,202,232,208,64,210,220,# written. 64,144,210,218,64,230,208,222,234,216, # Here 200,64,220,222,232,64,224,202,228,210, # it 230,208,64,196,234,232,64,208,194,236, # is 202,64,202,236,202,228,216,194,230,232,# summed 210,220,206,64,216,210,204,202,64,90, # up 64,148,222,208,220,64,102,116,98,108); # for @_=map{$_>>=1;chr($_)}@__;@__=(46,16, # you 34,60,24,10,60,28,16,16,34,62);$_{$/}= # in $\;@_=map{$_{$_}++}@_;@_=sort{${b}cmp # three ${a}}keys%_;@__=grep{$_>>=1;$_[${_}--] # little =${_}[++$_]}@__;for(@__){print $_[$_]} # words. </code>