Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

My Very First JAPH

by Elliott (Pilgrim)
on Oct 09, 2001 at 19:41 UTC ( #117768=obfuscated: print w/replies, xml ) Need Help??

$r=497851*2**3;$r.=76523*5**2;$r.=4801*2**4;$r.=7753*29*43; $r.=15222657971*3;$r.=254215755597*3;for($i=0;$i<48;$i+=2){ $k=substr$r,$i,2;print chr($k+unpack("C","#"))}