Help for this page
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[$%++]}
www.com | www.net | www.org
No recent polls found