Select Code to Download

use strict;
use warnings;
...
    do {local $_; print $FILEC $_ while (<$FILEA>)} if $line =~ m/INSE
+RT BEFORE HERE/;
    print $FILEC $line;
}