#!/usr/perl/perl580/bin/perl

open (IN, "$ARGV[0]");

$first_line = <IN>;

$line_number = 0;

while (<IN>) {
	@line = split (/\t/, $_);
	$i = 0;		
	foreach (@line) {
		if ($_ eq "") {
			print ("I've found a empty space at line $line_number and columm $i\n");
		}
	$i++;
	}
	$line_number++;
}

close IN;