#!/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.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.