This is my very first japh.
Hope you enjoy it.

#!/usr/bin/perl -w # Just another Perl hacker
use strict;my($x,$y,@x)="0321008106149147148"
."06412914214314813613"."3146064112133146140"
."06413612913113913314"."6142112114105110116"
;$y=(pack("C*"=>,=>,@x[local$|..+$#x-+1])),$_
-=substr$x,substr($x,@x-21,,@++$|+1)=>3,=>for
(@x=map/([^\$"(?{\$_=~|index@x|e})]{1,3})$"$"
/xg=>substr($x.=1,@x+7,75+$|));$_=$x?$y:@x;$x
=substr($x,@x-41,@x-10);($x=~s/(.{2,3})/pack'
c*'=>$1/eg);$y="There=>is=>no=>spoon";eval$x;
[download]