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/([234
+69])/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 hacke
+r,$PS1
[download]