Select Code to Download

sed s/eval/print/ mpeg.pl | perl | sed s/eval/print/ | perl | perl -MO
+=Deparse

@_ = (104, 97, [112, 2], 121, 32, 98, 105, 114, 116, 104, 100, 97, 121
+, 10);
foreach $_ (@_) {
    print chr $_ if not ref $_;
    print chr($$_[0]) x $$_[1] if ref $_;
}

        $
        _
...
?)fer((tnirp\';s,
,reverse,ee';s'\s
'$_'geex;m,,mgsix

$,=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[$%++]}