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

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