if ($line =~ m/^Date: (.*)/i) {
   $date = $1;
}
if ($line =~ m/^Reply-To: (.*)/i) {
   $reply_address = $1;
}




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl