This is not very obfuscated so even the beginners should be able to figure it out.
#!/usr/bin/perl -w use strict; $~=~112;$~=~112;$~=~112;$~=~s/.*//;#112); sub ___{q#chr(#;}sub __{q$print($;}#112); sub _{for(0..$#_){$~.=__.___.$_[$_]#112); ;$@.=q#))#;last if/$#_/;$~.=q$+$;;}#112); eval"$~$@;";}_(0011,0107,0117,0100,0112);
Fixed a boo boo...
In reply to 112 is the key? by Mr. Muskrat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |