#!/usr/bin/perl

while (<>) {
  if (/\b(?:els)?if[^{]*\{\s*\}/) {
#    print "$ARGV: $_";
    next;
  } elsif (/\belse\s*\{\s*\}/) {
#    print "$ARGV: $_";
    next;
  }
  if (/\bif.*\{\s*$/) {
    $IF = $_;
  } elsif ($IF && /^\s*\}\s*(?:else.*)/ ) {
    print "$ARGV\:: $IF";
    print "$ARGV\:: $_" unless $IF eq $_;
  } elsif ($IF && /\S/) {
    $IF = 0
  }
}