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