Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

My Very First JAPH

by Elliott (Pilgrim)
on Oct 09, 2001 at 19:41 UTC ( [id://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","#"))}