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