http://www.perlmonks.org?node_id=36247


in reply to How do I test for a blank line when reading from a file?

If by "blank" you mean "empty", then /^$/, as in:
while (<>) { print "blank line detected\n" if /^$/; }