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;

Reply via email to