Help for this page

Select Code to Download


  1. or download this
    sed s/eval/print/ mpeg.pl | perl | sed s/eval/print/ | perl | perl -MO
    +=Deparse
    
  2. or download this
    @_ = (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 $_;
    }
    
  3. or download this
            $
            _
    ...
    ?)fer((tnirp\';s,
    ,reverse,ee';s'\s
    '$_'geex;m,,mgsix
    
  4. or download this
    $,=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[$%++]}