I was bored this evening so...
$/='mkd@h lqvj}" |[mhrqj@ WW RB ?=H
;]B y[I LO] opq rc@ PB yS MLQ
}By SS] hlq vj@ twq vP GG Rsa
hPw lbPB|=B?;Q ^By_B|=B ?;\eplP ByQ
RH VVB E|Q QVD :lD ]m rc
ch@I ]{{ ';$n ='4 km j@ !vw
jpcl@(clr@0aeucl';$r=sub{$z=shift;$b[$_]=vec
($z,$_,1) for 0..7;my $v.=$b[0];$v.=$b[$_+1]
.$b[$_] for (1,3,5);$v.=$b[7];return pack
'b*',$v;};$n=~y/"\n / /d;$e=sub{eval
$_[0];$";};$t=sub{join'',map(
&$r($_),(split //,$_[0]
));};$"=&$t($n);$|=
1;$/=~y/"\n / /d;
&print(&$e(
&$t($/)
));
Hope you like it
UnderMine
-
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.
|