This should theoretically be fairly
portable, but I've only tested it on 5.6.0/Linux and
5.8.0/ActiveState. If you don't like the first joke
it gives you, run it some more times and you won't like
the other ones either ;-)
$|++;;($;,$:,$,,$\,$^,$==>$~,$.,$})=("Izntvar n",
"Prey pbqr","fpevor"=> "!$/","ernql"=>$^F,
"boshfpng","fho",join ' ',@{;;[_(qw(oepgnf
rhnuar nfarqr gu))]} [2,$?,3,$|,@;,5]);sub
::{;my$i=$^;;[split /#/,join$`,map{$i^=$_}
split//,pop@_]}@%= map{my$die=$_;sub{print
for join$',@$die[ $%,$==>$|]}}map{[map{sub
{my$i=$!;join$&, map{my$o=$i;$i=$_;$o^$_;}
split//,shift}; y;a-z;n-za-m;;$_;}@$_];}([
q"Ia Sbivrg ", "rf lbh","Rhffvn, $: $~"],[
"Ayy lbhe $~" ," ner orybat gb hf","rq $:"
], ["$; orb" ,"rq $:","jhys pyhfgre bs $~"
],["$|. We" .'v'."gr $~","$/3. Pebsvg","r"
.qq-q-.' ' .$:.".$/$=. ???"],["Tur arkg ".
"$: $~"=> "ef $} vg"." rneyl",q"vba jvyy "
.'or'.qq ' $^ fbba, ohg $.$,'] );%_=map
{my$z=( ($_|=$^O)?$_:::($_)); $_,sub{
while( pop){my$x=unpack'V',$_ ;push@|
,($x> $_?$x:$_)}print for@|}} 1..1024;
;sub _{+(@;=>@:)=map{[split//]}@_;for(1..9
){push@:,join$&,map{shift@$_}@;}@:}$%[rand@%]->()
update: code below this point is
my signature and is not part of the above
obfuscation. I've reworked the sig to start
with a semicolon in case someone uses them
together, but that was not the intention.
;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}
}split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print;
-
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.