if (/From:/) {
  m/^\w+:(\S+)$/ && push my @addr, Mail::Address->parse($1);
  $address = $addr[0]->address;
  $debug_text .= "Found $address at line $.\n";
}