in reply to Skipping blank lines in a file

How about something like:

next unless /\S/;

[download]
--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>

In Section Seekers of Perl Wisdom