Select Code to Download

#!/usr/bin/perl
$_=q|print chr foreach
...
;--$};$}+=0x13;$}++;$}+=0x13;$}++;$}+=0xa;$}--;$}++;$}--;$}++;$}+=0xa;
+$}-=0x14;+
+$};++$};$}++;$}+=0xa;$}+=0x13;++$};$}+=0xa;$}-=0x14})|;  s/\n//g;eval
+;print"\n"
#Just Another Perl Hacker

#!/usr/bin/perl
use strict;
...
        print "do{$ciphertext[$i]}",((($i+1)==@ciphertext)? ")":",");
}
print "\n#Just Another Perl Hacker";