"Spam!!!\n" if 
   $text =~ /^(?:From|To):\s*"(?!.+Furry Marmot)[^"]*" <marmot\@furrytorium\.com>/m;