Inspired by [g0n]'s remark about getting as many punctuation marks in a row as possible.

sub ::{$_[$|]<$|?::($_[$|]+!$|+!$|)-::($_[$|]+!$|):$_[$|]>!$|?::($_[$|]-!$|)
+::($_[$|]-!$|-!$|):$_[$|]}s//_V:n:2ePlyW_Q}RNpkW_Q}Ulr[Pllr)_P5r_yW_Q}P2a/;
s//7Pa2aS2r2eRN)/;s/([]r_a-n[])/"\"\\c$1\""/gee;s/(.)/ord$1/ge;s/([23469])/0
x$1/xge;s/([57])/sprintf"%b",$1/ge;for$_(split/8/,$_){($a,$b)=($|,$^F);for$_
(split//,$_){$a+=:: $b++if$_;$b++}print chr$a}#Just another Perl hacker,$PS1