http://www.perlmonks.org?node_id=16339
le's user image
User since: Jun 05, 2000 at 01:55 UTC (23 years ago)
Last here: Oct 29, 2001 at 13:34 UTC (22 years ago)
Experience: 1272
Level:Friar (9)
Writeups: 173
Location:Vienna/Austria
User's localtime: Sep 30, 2023 at 06:11 +02
Scratchpad: View
For this user:Search nodes

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

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

[download]