open my $F, "<", $file or die; while (my $line = <$F>) { if ($line ...) { # ... } }