Select Code to Download

#!/usr/bin/perl -w
print <<JAPH;
...
 eval (join "", reverse map {chr(--$_)}
  unpack(q!A3x3!x89,$_));
}

!/usr/bin/perl -w
print <<JAPH;
...
 eval (join "", reverse map {chr(--$_)}
  unpack(q!A3x3!x89,$_));
}

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

...
# 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, $_);

#!/usr/bin/perl -w
print <<JAPH;
...
 s/\s//gs;
 eval (join "", reverse map {chr(--$_)} m/\d{3}/g );
}

#!/usr/bin/perl -w

...
  print && die;
 }
}

 # Note that he could have simply closed STDERR here,
 # rather than select it, then close it. Spiffy use though!
...
  select STDOUT;
  print && die;
 }