perl -ne '$count++ unless /\S/; print "$count\n" if eof' <filename