($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!';$_