in reply to The Latest Craze
This is a really really good obfuscation. Not that difficult to work out, but very creative. Bravo.
On a side note, it worked well with my perl 5.005_3, but not with 5.6 (prints a blank line). The following adaptation does work with 5.6, but not with 5.005_03 (Global symbol "$uo" requires explicit package name at (eval 1) line 2.). Go figure.
eval'use strict;$uo';@_{split//,eCVJABDdEeSFeNeeGaeIHQecePMLR. TeeUeeeZYeKeeOXebWeeee}=split//,uc$@;print@_{sort+keys%_},"\n"
In Section
Obfuscated Code