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