while (<>) {
    my ($host, $ident_user, $auth_user, $date, $time,
            $time_zone, $method, $url, $protocol, $status, $bytes) = 
    /^(\S+) (\S+) (\S+) \[([^:]+):(\d+:\d+:\d+) ([^\]]+\] "(\S+) (.+?) (\S+)" (\S+) (\S+)$/;
    ...

##</code><code>##

  % htpasswd .htpasswd 'd w s'
  New password:
  Re-type new password:
  Adding password for user d w s
  %

##</code><code>##

  /^(\S+) (\S+) (\S+) \[ ...

##</code><code>##

  /^(\S+) (\S+) (.+) \[ ...