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

##</code><code>##

local $/ = '';
while (<>) {
   chomp( my @rec = split /^/m );
   my $hdr1 = shift(@rec);
   my $hdr2 = shift(@rec);
   my %rec = @rec;
   next if $hdr2 eq 'D';
   print;
}