#!/usr/bin/perl
$_=q|print chr foreach
(do{$}=42;$}++;$}+=0x13;$}++;$}--;++$};$}+=0xa;$}+=0x13;$}++;$}++;$}--;--$};$}--
;$}++;--$};$}+=0x13;$}+=0xa;++$};--$};$}++;--$};$}++;$}-=0x14;$}+=0xa;$}--;--$};
$}-=0x14;$}--;$}+=0xa;$}+=0xa;$}+=0xa;$}--;$}-=0x14;$}+=0x13;$}+=0xa;$}--;--$};$
}-=0x14;$}-=0x14;$}++;++$};$}-=0x14;$}-=0x14;--$};$}+=0xa;$}+=0xa;$}+=0x13;$}--;
$}--;$}-=0x14;--$};$}--;$}--;$}+=0x13;++$};$}+=0xa;$}++;$}--;++$};$}--;$}+=0x13;
$}+=0xa;++$};$}-=0x14;$}--;$}++;$}++;++$};$}++;$}-=0x14;$}+=0xa;$}+=0x13;--$};$}
++;++$};$}--;$}++;++$};$}--;$}+=0xa;$}++;$}-=0x14;$}+=0xa;++$};--$};$}++;--$};$}
+=0xa;$}++;++$};$}++;$}--;--$};$}-=0x14;$}++;$}-=0x14;$}-=0x14;++$};--$};--$};--
$};$}-=0x14;--$};$}-=0x14;--$};$}+=0x13;$}++;$}+=0x13;$}+=0xa;--$};$}++;--$};--$
};$}++;$}+=0x13;++$};--$};$}-=0x14;$}+=0xa;$}-=0x14;++$};$}+=0xa;$}++;$}--;$}++;
$}++;++$};$}-=0x14;$}--;$}++;$}+=0xa;$}--;$}--;$}-=0x14;++$};$}++;$}+=0x13;$}--;
$}-=0x14;$}-=0x14;$}++;$}++;++$};++$};$}++;$}+=0x13;$}+=0x13;$}+=0xa;++$};++$};$
}+=0x13;$}++;--$};--$};--$};$}++;$}++;$}+=0xa;$}++;$}--;$}-=0x14;$}+=0xa;--$};$}
+=0xa;--$};$}-=0x14;$}--;$}+=0x13;$}+=0xa;++$};++$};$}+=0xa;$}--;$}++;$}--;$}--;
--$};--$};$}++;$}-=0x14;++$};--$};++$};--$};$}+=0xa;$}+=0xa;$}--;$}-=0x14;++$};$
}+=0x13;--$};++$};$}++;$}--;++$};$}--;--$};++$};$}--;$}+=0xa;$}-=0x14;$}-=0x14;$
}+=0x13},do{$}=(1<<5)+0xa;$}+=0x13;++$};--$};$}++;++$};$}++;$}+=0xa;++$};$}-=0x1
4;++$};++$};$}-=0x14;$}+=0x13;--$};$}+=0xa;$}-=0x14;$}--;--$};--$};$}-=0x14;$}--
;$}+=0x13;++$};--$};$}++;++$};$}--;++$};++$};$}+=0x13;++$};$}+=0x13;$}-=0x14;--$
};$}+=0x13;$}+=0xa;$}--;$}+=0x13;--$};$}+=0xa;++$};--$};$}+=0xa;--$};$}-=0x14;--
$};$}--;$}-=0x14;$}-=0x14;$}-=0x14;$}++;$}+=0x13;$}+=0x13;$}--;$}+=0xa;$}--;$}-=
0x14;$}--;$}--;$}+=0xa;$}++;++$};$}--;$}+=0x13;++$};$}-=0x14;$}++;++$};$}--;$}+=
0xa;$}++;$}++;--$};$}-=0x14;$}++;$}-=0x14;--$};$}++;$}++;$}-=0x14;$}++;--$};$}+=
0xa;$}--;--$};$}-=0x14;$}+=0xa;$}+=0xa;$}++;$}+=0x13;$}-=0x14;$}+=0xa;$}--;--$};
$}+=0x13;$}++;--$};$}+=0xa;$}++;$}++;$}--;$}+=0x13;$}-=0x14;$}+=0x13;$}+=0x13;$}
+=0xa;$}--;--$};$}--;++$};$}--;++$};$}-=0x14;$}--;$}+=0x13;$}++;++$};$}-=0x14;$}
+=0xa;++$};$}+=0xa;--$};$}--;++$};$}--;--$};++$};$}-=0x14;$}-=0x14;$}++;$}+=0xa;
--$};$}--;$}+=0x13;--$};$}++;$}+=0xa;$}--;$}++;--$};$}-=0x14;++$};$}+=0xa;++$};+
+$};++$};++$};--$};$}+=0xa;++$};$}--;--$};$}--;$}--;++$};$}-=0x14;--$};$}--;$}++
;$}+=0xa;--$};$}++;$}--;++$};--$};$}++;--$};--$};--$};$}++;$}+=0xa;++$};$}--;--$
};$}++;++$};$}-=0x14;++$};$}++;$}++;++$};$}--;$}-=0x14;--$};$}+=0x13;$}-=0x14;$}
--;--$};$}-=0x14;--$};$}++;--$};--$};$}-=0x14;$}+=0x13;++$};$}-=0x14;$}-=0x14;--
$};--$};--$};--$};++$};$}-=0x14;--$};$}+=0x13;--$};$}+=0xa;$}--;$}+=0x13;$}+=0x1
3;$}+=0x13;$}+=0xa;--$};++$};$}+=0x13;$}-=0x14;$}++;--$};$}+=0x13;$}--;--$};++$}
;$}-=0x14;++$};--$};$}--;$}+=0x13;$}--;$}+=0xa;$}--;$}+=0xa;++$};$}--;$}--;$}++;
$}++;--$};$}-=0x14;$}+=0xa;$}+=0xa;++$};$}-=0x14;++$};$}-=0x14;$}--;$}+=0xa;--$}
;++$};$}+=0xa;++$};$}++;$}++;--$};++$};$}+=0xa;$}+=0xa;$}--;$}-=0x14;$}--;$}--;-
-$};$}+=0xa;$}--;++$};$}-=0x14;$}+=0xa;$}+=0xa;$}-=0x14;$}-=0x14;$}+=0x13;--$};+
+$};$}-=0x14;++$};--$};$}+=0xa;$}--;$}+=0xa;$}-=0x14;--$};++$};$}++;$}++;$}+=0xa
;$}+=0xa;$}+=0xa;$}-=0x14;$}++;$}-=0x14;$}+=0x13;$}+=0xa;$}+=0xa;++$};$}+=0xa;$}
-=0x14;$}--;$}--;$}--;++$};--$};$}+=0xa;$}--;$}+=0x13;++$};--$};$}+=0xa;$}++;--$
};$}-=0x14;--$};$}--;$}+=0xa;$}++;++$};$}--;$}++;$}++;$}--;$}++;++$};$}++;$}--;$
}-=0x14;$}+=0xa;--$};$}+=0xa;$}--;++$};++$};$}--;--$};$}++;$}++;$}-=0x14;$}+=0xa
;$}+=0xa;++$};$}-=0x14;--$};$}+=0xa;++$};$}--;++$};--$};++$};++$};$}-=0x14;$}+=0
x13;$}+=0xa;$}-=0x14;$}++;$}--;$}+=0xa;$}+=0xa;--$};++$};++$};--$};--$};--$};$}-
=0x14;$}--;$}-=0x14;$}-=0x14;--$};$}-=0x14;$}+=0xa;$}--;$}+=0xa;$}--;--$};$}-=0x
14;$}--;$}+=0xa;--$};$}-=0x14;$}++;$}++;$}-=0x14;$}+=0x13;$}--;$}--;$}-=0x14;$}+
+;$}-=0x14;$}+=0x13;$}+=0x13;$}--;--$};$}-=0x14;++$};$}++;$}--;$}+=0xa;$}+=0xa;$
}--;$}++;++$};--$};$}+=0xa;$}++;$}+=0xa;$}--;$}+=0x13;--$};$}+=0x13;--$};--$};$}
-=0x14;--$};$}+=0x13;--$};$}-=0x14;++$};$}+=0x13;$}-=0x14;$}+=0x13;$}-=0x14;$}+=
0xa;$}+=0x13;$}+=0xa;++$};$}+=0xa;++$};$}--;$}+=0x13;$}--;--$};$}--;++$};$}+=0xa
;++$};$}-=0x14;$}+=0x13;++$};$}--;++$};--$};$}-=0x14;$}+=0xa;$}--;$}-=0x14;--$};
$}++;$}++;$}-=0x14;$}++;$}--;--$};$}+=0xa;$}++;--$};++$};--$};$}+=0xa;++$};$}++;
$}++},do{$}=42;$}-=0x14;$}+=0x13;$}-=0x14;++$};$}++;$}+=0x13;$}-=0x14;--$};--$};
++$};$}+=0x13;$}--;$}++;--$};--$};$}++;$}+=0x13;$}-=0x14;$}-=0x14;$}++;$}--;$}--
;$}+=0xa;$}+=0x13;$}+=0xa;$}--;$}+=0x13;$}+=0xa;$}++;$}-=0x14;--$};$}++;$}-=0x14
;$}+=0xa;++$};$}+=0x13;$}+=0x13;$}-=0x14;$}++;$}-=0x14;$}++;$}++;$}++;++$};--$};
$}-=0x14;++$};$}+=0xa;$}++;$}--;$}++;$}+=0xa;$}++;$}+=0x13;$}+=0xa;$}--;++$};$}+
+;$}+=0xa;$}+=0x13;$}++;$}--;$}-=0x14;$}-=0x14;$}+=0x13;$}-=0x14;$}++;$}-=0x14;+
+$};$}+=0x13;$}+=0xa;$}+=0xa;$}+=0xa;$}+=0xa;--$};$}-=0x14;$}++;$}+=0xa;$}+=0xa;
++$};$}--;$}--;++$};$}--;$}--;$}--;--$};$}++;++$};$}++;$}--;--$};$}-=0x14;++$};$
}+=0xa;$}+=0x13;$}++;$}-=0x14;++$};++$};$}+=0xa;$}--;$}-=0x14;$}+=0x13;$}-=0x14;
$}--;--$};--$};$}--;$}-=0x14;--$};$}+=0x13;$}-=0x14;$}++;--$};$}--;$}-=0x14;--$}
;--$};$}+=0x13;--$};$}++;--$};$}+=0x13;$}+=0xa;$}-=0x14;++$};--$};$}++;$}+=0xa;+
+$};++$};$}--;$}++;$}+=0x13;$}+=0xa;$}-=0x14;$}-=0x14;$}+=0x13;++$};$}+=0x13;$}-
=0x14;$}+=0xa;++$};$}--;$}+=0x13;$}++;--$};++$};--$};$}++;$}++;--$};--$};$}-=0x1
4;++$};$}--;$}+=0xa;$}-=0x14;$}++;$}--;$}--;--$};$}--;$}+=0x13},do{$}=(1<<5)+0xa
;--$};$}+=0x13;$}++;$}+=0x13;$}++;$}+=0xa;$}--;$}++;$}--;$}++;$}+=0xa;$}-=0x14;+
+$};++$};$}++;$}+=0xa;$}+=0x13;++$};$}+=0xa;$}-=0x14})|;  s/\n//g;eval;print"\n"
#Just Another Perl Hacker

##</code><code>##

#!/usr/bin/perl
use strict;
use List::Util 'shuffle';
$_="Just Another Perl Hacker,";
my @plaintext = map { ord } split "";


my @ciphertext = ();
my @init       = ('$}=(1<<5)+0xa','$}=42');
my @op         = ( '$}++', '$}--', '--$}', '++$}',
                   '$}+=0xa', '$}-=0x14', '$}+=0x13' );
for (my $i=0; $i<@plaintext; $i++) {
        my (@stack,$result,$stop);
        push @stack, $init[int(rand(@init))];
        while (!$stop) {
                my $heap = pop @stack;
                $result  = eval "$heap";
                if ($result == $plaintext[$i]) {
                        push @ciphertext, $heap;
                        $stop++; next;
                } else {
                        next if ( abs($result) > 127 );
                        @op = shuffle(@op);
                        for (my $j; $j<@op; $j++) {
                                push @stack, "$heap;$op[$j]";
                        }
                }
        }
}
print "#!/usr/bin/perl\nprint chr foreach (";
for (my $i=0; $i<@ciphertext; $i++) {
        print "do{$ciphertext[$i]}",((($i+1)==@ciphertext)? ")":",");
}
print "\n#Just Another Perl Hacker";