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