!/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#
  126504060240102408106424101404039156039156117468111444106424115460113452
  06024004216812750803714804116410240811646411244810943610040006024004216
  811546010240810843210040009839207329203313210943611546010240808132403313
  211546010240810542011746811244811144406626403313211746811646411847207530
  004116412048011445604518003514003313203514011144410642411244810742806224
  809638403714806024003514008333208333207028003514006224804216805220804518
  005220804518012750803714804116411546011746811646409939611847211646412449
  607630406827207028007329206827229935545211342010516404118004546811708102
  4321084001004920983092732116054115234064002046821120875524968
 #;

 s/\s//gs; # Remove the whitespace still
 eval (join "", reverse map {chr(--$_)}
  unpack(q!A3x3!x89,$_));
}