Assuming by 'empty' you mean 'containing only space characters':

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