very very simple

[Oromis92]

hu, here's my first obfuscated perl code. It's very simple to understand...

$p=PERL;@p=(24,32,62,35);$P=0
+((1+0)^(0+1))+1;$BP=$P.0;($b
.=chr($p[$_]^ord(substr($p,$_
,$P))))for($P-1..($P+$P)*($P+
$P));$B=substr($b,($P+$P)+$P,
$P);chop($b);chop($b);$b.=chr
($p[$P+$P]^ord(substr($p,$P+$
P,$P))).$B.chr($BP);print $b;