if ($line =~ m/^Subject: (.*)/i) {
    $subject = $1;
}




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