open IN, $filename or die "Cannot open $filename for input: $!\n";
while( <IN> ) {
    next if //;
}
close IN;