open my $code_fh, '>', 'codefile.txt' or die $!;
open my $var_fh,  '>', 'varfile.txt'  or die $!;
open my $in_fh,   '<', 'infile.txt'   or die $!;
local $/ = "\n\n";
while ( <$in_fh> ) {
    print { m/^\s+DC\s+/m ? $var_fh : $code_fh } $_;
}
close $var_fh  or die $!;
close $code_fh or die $!;