perl does a wonderful job of pattern matching. Here's what I've got:

while(<DATA>){

    # Populate the data array
    if ($_ !~ /^\s*$/){
        push @data, $_;
    }
}
[download]

This gets rid of lines that have only whitespace. If you want truly blank lines take the \s* out of the regex.

thor