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

ew.... just do:

my @array = <FILE>;
[download]

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

ewwwww... use something more like:

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

Even better, do it from the command line (see another node in this same thread)

Cheers,
KM