Hi Monks, Looking in my directories I found the code below, can anyone tell me what this code is trying to-do?

Winning an obfuscation competition...

Try running it through perl -MO=Deparse.