while (<IN>) {
   push @new, m/^(\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+)/;
   print "\n$#num\n";
}

while (<REPLACE>) {
   s/^\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+/$new[$i++]/;
   print OUT $_;
}