http://www.perlmonks.org?node_id=16339
le's user image
User since: Jun 05, 2000 at 01:55 UTC (18 years ago)
Last here: Oct 29, 2001 at 13:34 UTC (17 years ago)
Experience: 1271
Level: Friar (9)
Writeups: 175
Location:Vienna/Austria
User's localtime: Jun 21, 2018 at 10:47 +02
Scratchpad: View
For this user:Search nodes

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

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