Select Code to Download

++$|;
undef $/;
...
    s/\Q${\substr($a, 0, 1);}\E/${\substr($a, 1);}\n;/g;
}
eval $_;

[
<
-
]

while($p[$p]){
;$p--
;$p[$p]--
;}
;