Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

le

by le (Friar)
on Jun 05, 2000 at 01:55 UTC ( [id://16339] : user . print w/replies, xml ) Need Help??

2001-05-01: JAPH-of-the-day:

#!/usr/bin/perl -w $_=++$.;$_+=$_;$_*=$_;$;=$_;$;.='a'.$_;$;.=$.;$;.=$_+$.; $;.=--$.;$;.=$_;$_+=$_;$;.=$_;$.++;$_/=++$.;$;.=$.;$;.= --$.;$;.=--$.;$;.='a';$_=$;;print+pack'H*'=>$_;