my $prev = '';
while( 1 ) {
    while( <LOG> ) {
        $_ = $prev . $_;
        if(  ! /\n$/  ) {
            $prev = $_;
            next;
        }
        $prev = '';
        grok($_);
    }
    sleep 15;
    seek LOG, 0, 1; # Clear EOF flag
}