if ($line =~ m/^Subject: (.*)/i) { $subject = $1; } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl