#!/usr/bin/perl -w
use strict;
my $filename = $ARGV[0];
open(BUF, "<$filename");
my $line_num = 1;
foreach(<BUF>){
    if($_ =~ /=\s*=/){
        print "Found crap at line number $line_num\n";
    }
    $line_num++;
}

if($line_num == 1){
    print "Didn't find any blank lines\n";
}