Select Code to Download

local $/ = '';
while (<>) {
   next if /\A.*\nD$/m;
   print;
}

local $/ = '';
while (<>) {
...
   next if $hdr2 eq 'D';
   print;
}