while (<>) {
  last if /^};/;
  print $_ if s/^  /  &&lbl_/;
}
