Help for this page

Select Code to Download


  1. or download this
    sed s/eval/print/ t.pl | perl | perl -MO=Deparse
open $:, shift @ARGV;
$/ = undef;
...
s/\[\s/while(\$a[\$b]){/g;
s/(?<=\s)\]\s/}/g;
eval $_;
  2. or download this
    $/ = undef;
$_ = <$:>;
$/ = \1;
[...]
s/,\s /\$a[\$b]=ord(<>);/gx;
[...]