#!/usr/bin/perl -w
# if.pl --- alpha
# Author: MadPer <madper@myhost>
# Created: 26 Jun 2012
# Version: 0.01
use warnings;
use strict;
my $count = 0;
# my $line = 0;
while (<>) {
if ($count) {
print $. . "\t in file '$ARGV'\n" if not m/\{/;
$count --;
}
if (m/\bif\b/) {
$count ++;
}
}