use strict;

#Usage: cat one.ipdata two.ipdata | perl catipdata.pl > oneplustwo.ipdata

my $data_point = 1;

while (<>)
  {
		  if (m/^\s+\d+\s+([\d+-.eE]+)\s+([\d+-.eE]+)\s+([\d+-.eE]+)\s+[\d\.]+\s+[\d\.]+\s+[\d\.]+\s+$/)
			 {
				print (" $data_point $1 $2 $3 1 1 1\n");
				$data_point++;
			 }
  }