You are, of course, correct! I don't know why I didn't notice that. How about:

@_=qw=PerlMonksRock!=;$_=q;
uJts natoehr ePlr ahkcre.;;
$a=q#s<(\D)(\w)>@$+$1@g;;1;
#;;eval($a)=>$b.=qq=$_ =for
split;;print $b,$/,#@PM.ORG
[download]

By the way, obfuscation is fun because it forces you to learn the more 'obscure' parts of Perl. Half the fun is trying to figure out how it works, and then diving into the library to fill in the gaps. You can find out about all the predefined variables this way too.