http://www.perlmonks.org?node_id=60352

This has about 80-char wrap required to look "nice". 
$SIG{__WARN__}=sub{$_=shift};eval'use strict;$uo';@_{split//,eCVJABDdE
+eSFeN.
eeGaeIHQecePMLRTeeUeeeZYeKeeOXebWeeee}=split//,uc;print@_{sort+keys%_}
+,"\n";

[download]


japhy -- Perl and Regex Hacker

Back to Obfuscated Code