it has been _forever_ since i last posted, but here's a JAPH:

$a=q%ptsneehe^ $a=~s#\S#push@b,$&#eg;for$a(0..7){for(0..3){$z.=$b[$a];
     r"torrar^ $a+=8}};$|=1;$z=~s#_# #g;$z=~s#"(.*)"#'$_)/10for("'.joi
+n
     iJ_t_lc,^ ('","',split//,$1).'",$/)'#e;eval'select$q,$q,$q,('.$z;
     nuahP_k"^ %;$a=~s#\^(.*?)\n#$b.=$1;""#eg;eval$b;
[download]

the obfuscation isn't that hard to figure out, but i quite like it :)
al