$mailarray{$msgid}{"from"}= $from
  if ($msgid, $from)  = m/.*\[\d+\]: ([a-fA-F0-9]+): from=<(.*)>,/;

$mailarray{$msgid}{"to"}= $mailarray{$msgid}{"to"} . " " . $to,/
  if ($msgid, $to)  = m/.*\[\d+\]: ([a-fA-F0-9]+): to=<(.*)>,/;