Jeff Pinyan wrote: > $SIG{__WARN__}=sub{$_=shift};eval'use strict;$uo';@_{split//,eCVJABDdEeSFeN. > eeGaeIHQecePMLRTeeUeeeZYeKeeOXebWeeee}=split//,uc;print@_{sort+keys%_},"\n"; That uses a trick similar to mine in http://bumppo.net/lists/fun-with-perl/2000/05/msg00144.html -- John Porter Useless use of time in void context. ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe