Pi[134358] Mystery Cache

#!/usr/bin/perl

$pi = "";
while (<>) {
        chomp;
        s/\r//;
        s/..//;
        $pi .= $_;
}
$_ = $pi;

open (PI, ">pi.txt") or die $!;
print PI "3$_\n";
close PI;

@pi = split //;

for $i (0..$#pi) {

        if (
                "$pi[$i  ]$pi[$i+1]" eq "51"    && "$pi[$i+2]$pi[$i+3]"  < 60 &&
                "$pi[$i+7]$pi[$i+8]" =~ "0[67]" && "$pi[$i+9]$pi[$i+10]" < 60
        ) {
                printf "%06d N51 %d%d.%d%d%d E0%d %d%d.%d%d%d\n", $i + 2,
                        $pi[$i+2], $pi[$i+3],  $pi[$i+4],  $pi[$i+5],  $pi[$i+6],  $pi[$i+8],
                        $pi[$i+9], $pi[$i+10], $pi[$i+11], $pi[$i+12], $pi[$i+13];
        }
        $i++;
}