s/^\s+\S+\s+//; # remove initial address ind.
#s/\s{2}.*//;    # remove trailing dump  <-- commented
s/\s+//;

##</code><code>##

if (/^\S/) {
  while ($packet=~/(GET|POST|WWW-Authenticate|Authorization|[a-z]+=[a-z]+).+/g)  {
         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);