Here are two strange japh-ideas that came into my mind last night as I was dropping off to sleep.

eva1("do NOT print 'just another perl hacker'");sub
eva1{($x=$_[0])=~s/[^']*?'([^'].*)'.*/\1/;print $x}
[download]

and

($j='000011-02001-84065013001005-12-03013-
82080-11013-06-76072-07002008-06013-68013-
82080-11013-06-76072-070020')=~s/\n//g;$x=
length($j);for($i=0;;$i+=3){$x=(substr($j,
$i,3)+$x);$_.=(chr($x));last if $x == 46;}
print;
[download]

They're kind of stupid, but be gentle with me, it's my first time...

Cody

--
Weaselling out of things is important. It's what separates us from the animals ... except the weasel.