# ...
for my $line (@lines) {
   print $line;
   $line =~ s/^(.{11})DC/\1  /;
   print MYOUTPUTFILE $line;
}
# ...