if ( ! open WEBLOG, "<$weblog") {
    die "$0: Cannot open weblog: $weblog\n";
}

while ( <WEBLOG> ) {
    if ( $_ =~ m/^2007-07-13/ ) {
        push @lines, "$_\n";
    }
}

print @lines;