#!/usr/bin/perl -w
print <<JAPH;
Do You Dare To Try To Crack The Code
Of The Perl Masters of Obfuscation?
JAPH
use
strict;
BEGIN{$_=q#
;}$~='Z126504E0
60240Q102408n106424
u101404P039156e039156o1
17468v111444 I am 106424n11
5460p113452 now a master 060240
F042168d12750 Obfuscator! 8037148H0
41164c102408C11 You are not 6464P112448
O109436g100400m060 so do not 240042168A1154
60r102408P108432 even try 100400W098392
U073292c033132 to figure 109436G115
460n102408k0 this out! 81324p03
3132v115460N102408E105420m1 174
68h112448J111444h066264 0331321
17468u116464p118472 S075300J041
164j120480A1144 56f045180c03514
0j033132S03 5140A111444v106424T
112448l 107428A06 Just 2248A0
963 84Z037148 Another 060240F
035140i083332 Perl 083332N070
280H035140l062 Hacker 248042168Q0
52208x045180R052208y045180V127508I03714
8k041164N115460J1 Are 17468116464K099396K
118472E116464A12 you 4496076304068272W
070280G073292b0 a 68272299355p4521
13E420105H16 camel 4041180045m
4681170810 person 24321084
a001004W92 too?? 09830
92732n116054p115234F
064002F046821d12
0875s524968'
;print$~
,$\;
END{#;y/0-9//cd;eval(join"",reverse map{chr(--$_)}unpack(q!A3x3!x89,$_
+));}