eval((eval(join'',join'',map{unpack'C/(C.*/X/xa@)'}split/\n/,<<'MAGIC'
"BC8D%5/.31420-A69=(#:*$+<@;?)&',>7""$''((*,,;<=>AADTaaabchijkmnopsu{"
">DC95'A<?36;(%B&-#4*.=@8)$2+/0,17:$$''((())),,,1?_aacccdehknoppruuv{"
"?'=@:(#8)721*3%&CA><;B./-$9506+,D4$$''(()))),//046:;[]^__diloprrst}}"
MAGIC
))->(
<<'MORE MAGIC'
$SPW&VTV!P$SSVUWTW!PVRYT%VTWUVRW%VQV#
VSW!S!SSUVWRUUTQTTT&T%T#TYUXR#UUW%VTV
UVVV#RPSYR"SPRUW%VTVUVVV$SSWUWRV"WPWR
WYV%VTWTR&U"UPS$U"SPRUW%VTVUVVV"S$W"S
MORE MAGIC
));
undef->("Just another Perl hacker\n");