Whoops. The problem is that the second way I gave you won't work because the my $line part of it will fail -- and the variable won't be declared -- if you read in a blank line from the file you're looking through. So you could get a loop with the same logic by changing it to:

while (my $line = <> ) {
    push @lines, $line unless $line eq ".\n";
}
[download]

HTH

Philosophy can be made out of anything. Or less -- Jerry A. Fodor