print "Spam!!!\n" if 
    $text =~ /(?=^From:[^\n]+marmot\@furrytorium\.com).+^To:[^\n]marmot\@furrytorium\.com/ms;