($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: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |