if ($line =~ m/^From: (\S+) \(([^()]*)\)/i) {
    $reply_address = $1;
    $from_name = $2;
}




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl