Perl

Superior and beutiful. I would like to hear from you reasons for disliking perl and code examples that illustrate the reasons thanks.

$|++;;($;,$:,$,,$\,$^,$==>$~,$.,$})=("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@%]->()




Perl is only fun when obfuscated. The least explicit variables, the funnier.
BTW, it's "Practical Extraction and Reporting Language" : it's not intended for clean code or large programs, it's intended for (coding) efficiency in fast-written, quite small scripts.