while(<LOG>){
        next unless /$date/ .. eof(LOG);
        print LOGFILE;
    }

##</code><code>##

    my @input = <LOG>;
    foreach (@input) {
        next unless /$date/ .. undef;
        print LOGFILE;
    }

##</code><code>##

    my @input = <LOG>;
    {
        my $found = 0;
        foreach (@input) {
            $found = 1 if /foo/;
            print LOGFILE if $found;
        }
    }