#!/usr/bin/perl


open PI,"pi.txt";
$pi = do { local $/; <PI> };
$pidec = substr($pi,2);
close PI;

$pipnt=0;
$done=0;
while($l = <>)
{
  chomp($l);
  $l =~ s/#072//g;
  next if $l=~ / 3\./;
  next if $l=~ /FROM/;
  if($l =~ /\s+(\d+),\s+(\d+\.\d\d)\s+(\d+\.\d\d)$/)
  {
    $cells=$1;
    $cpu=$2;
    $print=$3;
    print "$pipnt\t$cells\t$cpu\t$print\n";
  }
  elsif($l =~ /^\s+(\d+)$/)
  {
    $cells=$1;
    print "$pipnt\t$cells\n";
  }
  elsif((!$done) && $l =~ /\d\d\d/)
  {
    foreach $digit (split //, $l)
    {
#     print "digit: $digit\n";
      if($digit =~ /\d/)
      {
	$c1 = substr($pidec,$pipnt,1);
#       print "match $digit $pipnt $c1\n";
	if($digit eq substr($pidec,$pipnt,1))
	{
	  $pipnt++;
	}
	else
	{
#	  print "done!\n";
	  $done=1;
	}
      }
    }
  }

}