in reply to regexp for blank lines

If you have undef $/

@arr = split /\n/, $line;
map {s/^\n+//;} @arr;
$"="\n";
print "@arr"

[download]

if you are using while without undef $/, try the following

while ($line = <FILE>)
{
$line =~ s/^\n+//;
}

[download]
the above codes not tested, try it out if it helps you

Prasad

In Section Seekers of Perl Wisdom