Not anywhere worthy of even BooK's helper programs, and a good example of how not to win one of these contests. Hopefully I will do better next time. For those wanting to learn how, check out BooK's aforementioned impressive examples, as well as the winners. Most especially of note, on how to expend less effort and use more creativity, look at the Mayan numbers -- very simple, but creative enough to earn first place.

But without further rambling, here is my promised example:

#!/usr/bin/perl -T0l0U :)
eval join"",map{@{([$_,$$=($$,$_)[$/^=1]],[])[$/]}}split//,q!psil/t,/ 
+'PJaThenlroVueA[+ d4l;'/$1=82@,=$psilec_@0,$,=$*3op@p;_of(ram{p_$$=-/
+(=,'g'$t?_01:907-)ro$d}__@{)rpni@t[$$(=/_$2***42(%*$= 170452*)$$$/)*$
+*%$$$$,]/p}irtn\""n!
[download]

Ciao,
Gryn

p.s. another thing I learned was that the #!/usr/bin/perl does not need to be in an entry! (unless you need one of the command line switches I guess).