cut_out
8
2

##</code><code>##

ORIGINAL
1
2
3
4
TO 10

##</code><code>##

open (true, "<ORIGINAL");
open (edit, "<cut_out2");
open (rest, ">REST");
while (<edit>) {
chomp;

 $j = $_;
print $j;
open (out, ">$.out.test");
    while (<true>){
        if (1..$.==$j) {print out}

else {print rest};

print "\nCUT";
rename (REST, COMPARE);
                }

}
~