print <<"END_FORMAT";
date time       = $1
time taken      = $2
c-ip            = $3
.
.
.
END_FORMAT

##</code><code>##

my ($user_agent) = /\"(.*)\"/;
s/\".*\"//;
my @F = split(/\s+/);
print <<"END_FORMAT";
date time        = $F[0] $F[1]
time taken       = $F[2]
.
.
.
cs(Content-Type) = $F[15]
cs(User-Agent)   = $user_agent
sc-filter-result = $F[16]
.
.
.
END_FORMAT

##</code><code>##

my @F = /(\" .*? \" | \S+)/gx;