while (my $logline = <LOG>) {
    # parse it
}