Since you have to submit by the 15th (and I already have), I thought it would be safe to submit my entry here as well:

#!/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]

Note, You need to keep that as all one line

Have fun :) ,
Gryn

p.s. As a hint, my first program was too small, so I added a overlying layer (which isn't terribly obfuscated).