while (<IN>) {

push @new, $_ =~ m/^\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+.*/;
$num =scalar$#new;
print "\n$num\n";
             }

while (<REPLACE>) {

$- =~ s/^\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+(\s+.*)/$new[$i++] $1/;

print OUT $_;

}