#!/usr/bin/perl -w                   # Safe computing.
use strict;                          # Bondage and Discipline.
my $japh='$japh';$japh=~#$japh#      # Hmmm... Could this be a JAPH, p
+erchance?
s(){                                 # That's no way to define a sub!
  qx/$japh=(<JAPH>);/                # When did I open that filehandle
+?
};                                   # And should I really execute its
+ contents?
map                                  # A map to guide you,
{print chr(16*(vec($japh,$_/1000,4)) # using vectors
+vec($japh,$_%1000,4))}              # to point the way.
(159158,137163,149171,139142,143162, # But what are these?
 147146,145166,151172,137142,145150, # They're not latitudes.
 151163,139155,169148,163162,145163, # Or longitudes.
 149141,147156,141148,145164,147136, # Confused?
 145153,147170,151163,137141,143156) # Let me misdirect you!
[download]