my $prev = '';
LINE: while ( <> ) {
  next LINE if "$prev$_" =~ m/\.{4}<B.*ird>/s .. /(\+\=\+)$/;
  print;
  $prev = $_;
}