$dir = "/$dir/";
my $strlen = length $dir;
while (<LOG>) {
    my ($url, $code) = (split)[6,8];
    if (substr($url, 0, $strlen) eq $dir && $code == $error) {
        $report{$url}++;
    }
}