# Create a file array of lines
while ($line = <FILE>){
    push (@array, $line);
}

##</code><code>##

my @array = <FILE>;

##</code><code>##

# Then control the output
foreach $index (@array){
    # if the line is completely blank dont print it.
    if ($index !~ /^\s*\n\s*$/)    {
        print "$index";
    }
}

##</code><code>##

for (@array) {
    print unless /^(\n|\s+)$/;
}