I am unsure if you got this one, if not, here it is.
Tom PS: its for version 3.6 -- [ Thomas Linden - http://www.daemon.de/ - [EMAIL PROTECTED] ] $_=`perl -v`;s;^.*ll;;s;$^=unpack"u","'8V]D;')E<```";s;\W;;gs;$/=7* ($^=~s;.;;g);%^=map{$_=>1}split//,lc;$_=join$\,(sort keys(%^))[map{ ord($_)-$/}split//,'1I7E13?@E:7C1A7C=1:35<7C'];s"0(.)" \U$1"g;print;
