in reply to Re^2: The REAL reason for why they choose PHP over Perl.
in thread The REAL reason for why they choose PHP over Perl.


#!/usr/bin/perl

use B::Deparse;

my $deparse = B::Deparse->new;
print $deparse->coderef2text(\&wtf);

sub wtf
{
$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}
}

[download]

In Section Meditations