Select Code to Download

open(FILE, filename);
@LINES = <FILE>;
close(FILE);

$LINES[n] = 'some new text';

open(FILE, filename1);
@LINES = <FILE>;
...
for $i (n .. p) {
    $LINES[$i] = $LINES2[$i];
}

open(FILE, filename);
for $i (0 .. $#LINES) {
    print FILE "$LINES[$i]";
}
close(FILE);