($p,$_)=(95,'1154_LarryWallTribute_02B4124AF01411' );$_.='54A024D0D4#perlmonks.org#014F054C1C4134B0'. q)D41134A0114:-]1B4$_0D41641D4C094174(024;084164-; 0D4168);for(split/4/){m#(\d)(.+)#;($1)?($p-=hex$2) :($p+=hex$2);print chr($p)}#eval;print'Hi Mom!';$_
In reply to My first attempt at obfuscation by Adam
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |