use strict;

#Usage: cat one.ipxi two.ipxi | perl catipxi.pl > oneplustwo.ipxi

my $data_point = 1;

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