$pi = "314159265358979323...";
$base = -65;
$offset = 0;
while ($offset < (100 - (ord('_')-65))) {
  print "Offset $offset ";
  $find = "JUST_ANOTHER_PI_HACKER";
  $index = 0;
  while ($find ne "") {
    $fnum = sprintf("%2.2d",ord(substr($find,0,1))+$base+$offset);
    substr($find,0,1) = "";
    $found = index($pi, $fnum, $index+2);
	print "FAILED" if $found < 0;
    $found -= $index;
    $index += $found;
    print "$found ";
  }
  print "\n";
  ++$offset;
}