#!/usr/bin/perl -w

use strict;

$\=$1.chr(10)if($a=~/(J.*?)\\/x);BEGIN{my$c='q!';my$m='p!';my$p=q!;my$e=sub{
$_=reverse(shift);s((((.))))["sprintf('%x',ord('$1'))"]gexe;return uc$_;};y/
a-z/z-a/xd;@a=map{grep{/^1/&&$b}${$_}}@_;map{2^$_}@_;$$=sub(/j,a|p.h/;(34,1,
43,'\x10');return"Just another Perl hacker\n");map{1}!;$main::a=$p;}print"";