Select Code to Download

#!/usr/bin/perl
                                                                      
+          
...
};
                                                                      
+          
printf "%s\n", $p_turn_root_into_japh->('rootrootrootrootrootroot');

print&{sub{$z=$_[0];for((0)x24,qw#8 -6 -4 0 0 14 1 5 -2 7 10 2 0 -1 10
+ 2 6 0 7
19 15 4 10 2#){$::=sub{substr(${$_[0]},($l>23)?$l-24:$l,1)=chr(($l<24&
+&0x21010&
1<<$l)?32:ord(substr ${$_[0]},$l-24,1)-$_)};&$::(\$z);$l++};$z}}(q#roo
+t#x6).$/