open FILE, "file.txt";
my $count;
while (<FILE>) {
  $count++ unless /\S+/;
}
close FILE;
print $count;