#!/usr/bin/perl

$i = 1;
while (<>)
{
   if (/^\((\d+),(\d+)\)/)
   {
     print "$i $1 $2\n";
     $i++;
   }
}

print "EOF\n";