while (...) { if ($line =~ m/^\s*$/ ) ... if ($line =~ m/^Subject: (.*)/) ... if ($line =~ m/^Date: (.*)/) ... if ($line =~ m/^Reply-To: (\S+)/)... if ($line =~ m/^From: (\S+) \(([^()]*)\)/)... } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl