Ok, I stand corrected (and humbled).

I read it thusly:

Perl Equals Open Paren Obfuscation
q;Art of the unreadable;Close Paren;
print :"Perl sub(zero) done for fun"