my $hlf = HTTPD::Log::Filter->new(capture => [ qw(request status) ]);
...
    next unless $hlf->filter($ac_line);
    next unless $hlf->status == 200;
    my ($method, $query, $http_version) = split(' ', $hlf->request);