#!/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#
  ;}$~='Z126504E060240Q102408n106424u101404P039156e039156o1
  17468v111444 I am 106424n115460p113452 now a master 060240
  F042168d12750 Obfuscator! 8037148H041164c102408C11 You are not
  6464P112448O109436g100400m060 so do not 240042168A115460r102408P108432
  even try 100400W098392U073292c033132 to figure 109436G115460n102408k0
  this out! 81324p033132v115460N102408E105420m117468h112448J111444h066264
  033132117468u116464p118472S075300J041164j120480A114456f045180c035140j03313
  2S035140A111444v106424T112448l107428A06 Just 2248A096384Z037148 Another 06
  0240F035140i083332  Perl  083332N070280H035140l062  Hacker  248042168Q0
  52208x045180R052208y045180V127508I037148k041164N115460J1  Are  1746811646
  4K099396K118472E116464A12 you 4496076304068272W070280G073292b0  a  68272
  299355p452113E420105H16 camel  4041180045m4681170810  person  24321084
  a001004W92  too??  09830 92732n116054p115234F064002F046821d120875s524968'
  ;print$~,$\;END{
 #;

 y/0-9//cd;
 eval (join "", reverse map {chr(--$_)}
  unpack(q!A3x3!x89,$_));
}

##</code><code>##

!/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,$_));
}

##</code><code>##

unpack(q!A3x3!x89,$_);

# here is the equivalent:
# The use of 'x3' confuses me, but I know that this creates
# a list of 89 elements, each 3 characters long (numbers)
unpack("A3x3" x 89, $_);

##</code><code>##

#!/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#
  12606010210610103903911711110611511306004212703704110211611210910006004211
  51021081000980730331091151020810331151021051171121110660331171161180750411
  20114045035033035111106112107062096037060035083083070035062042052045052045
  127037041115117116099118116124076068070073068
 #;

 s/\s//gs;
 eval (join "", reverse map {chr(--$_)} m/\d{3}/g );
}

##</code><code>##

#!/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 {
 # eval (join "", reverse map {chr(--$_)} m/\d{3}/g );
 # That above line makes us execute the following:
 CHECK {
  substr($~,3,3) = "ERR"; # Select STDERR as file handle
  $_ = join " ", qw(Just Another Perl Hacker); # obvious
  # Close STDERR, STDOUT is automatically selected
  close ($~);
  # Print the string and die -
  #  no error because STDERR is closed
  print && die;
 }
}

##</code><code>##

 # Note that he could have simply closed STDERR here,
 # rather than select it, then close it. Spiffy use though!
 CHECK {
  select STDERR;
  $_ = join " ", qw(Just Another Perl Hacker);
  close STDERR;
  select STDOUT;
  print && die;
 }