open my $fh, "<", $log or die "unable to open file '$log' - $!";
while (my $line = <$fh>) {
    # Zeile verarbeiten...
}
close $fh;