Not super obfu, but I simply felt that I had to.
#!/usr/bin/perl -w
$_= q`
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MM''MM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM M' MM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM''' "IMMMMMMMMMMMMMMMMMMMMMMM M MM"
+'MM
MMMMMM'"M' MMMMMMMMMMMMMMMV' ""MMMMMMMMMM. 'MM M M'
+.MM
MMMM'M :M ;MV MMMMMMMMMM' "MMMMMMMMMM. ": M .l .
+MMM
MMM; M M :M' AMMMMMMV' "MMMMMMMMM. .'''. fM
+MMM
MMMM t t M: MMMMMM' 'MMMMMMM' MM
+MMM
MMMM. t . M AMMMMV 'MMMM"" ' '. .MM
+MMM
MMMMM . MMMMMV '. .. ; .MMM
+MMM
MMMM '"S" MMV *** *** MMMMMM.' MMMM
+MMM
MMMM. ; ' 'MMMMMM. MMMM
+MMM
MMMMM..'. .MM' MMMMMMM VMM
+MMM
MMMMMM AMMMMMV * 'MMMMMM. MM
+MMM
MMMMM' MMMMMM: * .. MMMMMMM M
+MMM
MMMMM MMMMMM: g@. ** .' @g : 'MMMM.
+MMM
MMMM' MMM''': :@: '. .' ..@@e :
+.MM
MMMN '' : '@@@@: '. .' .@@@@@ ........./MMM
+MMM
MMM : e@@@@. .' . .' A. .@@@@@' MMMMMMMMMMMMM
+MMM
MMM:..........: '@@@@@@@. ! '. - - - . '. .@@@@@@@@ MMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMM '@@@@@@@@@@@@. H .@@@@@@@@@@@@' MMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMM '@@@@@@@@@@@@@...@@'..@@@@@@@@@@@@' AMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMA '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .MMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMA @@@@@@@@@@@@"'O'OOOO'@@@@@@@' .MMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMA '@@@@@@@VOOOOOOO.OOO @@@V AMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMA '@@@@OOOOOOOOO.OOO@' .KMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMA '.DD.OOOOO.OO .AMMMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMA. OOOOO OOOO .MMMMMMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMA.. OOOOOOOOOOOMMMMMMMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMOOOOOOOOOO.MMMMMMMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM OOOOOOR.MMMMMMMMMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM---MMMMMMMMMMMMMMMMMMMMMMMMMMMM
+MMM
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
+MMM
`;$_=~s[[M*\@V!"'.:;/\-\s]]]]g;$_=lc $_;@_= sort (map $_{$_}++,(split'
+'));@]= sort keys%_;print $][@]-2].$][@]-4].' '.$][@]-6].$][@]-4].$][
+@]-5].$][@]-10].' '.$][@]-14].$][@]-5].$][@]-13].' '.$][@]-1]. $][@]-
+9] . $][@]-14] . $][@]-5] . $][@]-7] . $][@]-2].' '.$][@]-11].$][@]-4
+].$][@]-3].' '.$][@]-14].$][@]-6].$][@]-6].' '.$][@]-1].$][@]-9].$][@
+]-12].' '.$][@]-11].$][@]-8].$][@]-2].$][@]-9]."!\n";
-
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.
|