foreach (split q;\;;,qq.'s;q,s;q,q;3g;sg;'g;{i;{);
}{;sg;3g;7i;i';q,g;qq};qq);ii;i};qq{;q,q;q,,;3g;',;q,q;qqs;q,';.. ord q'
'){s;\);5;i;s;';8;i;s,q,1,g;s;s;4;g;s.,.0.g;s'{'6'g;s;g;2;g;s;i;9;g;s'}
'7'gx;print chr}
(should be self explanatory)
In response to bis's deconstruction, the extra /g, /i and /gx's are just there to add even more apparent randomness, without it the pattern of substitutions becomes a little too obvious (or so it seemed to me, after five minutes of writing this my eyes went a bit funny).
And no, this isn't real obfuscation, it's just normal code hiding as line noise. There's not even any use of references. I was going to encode the string into something that looked like perl statements, but it just got messy.
btw, I'm waiting for The *REAL* *REAL* Obfuscated Perl to better this.