$a=q("aaa" and "bbb");
$a =~ s/".*"/test/g;
print "back tracked #$a#\n";

$a=q("aaa" and "bbb");
$a=~ s/"[^"]*"/test/g;
print "with negator #$a#\n";

$a=q("aaa" and "bbb");
$a=~ s/".*?"/test/g;
print "with backtrack supress #$a#\n";

##</code><code>##

$text = <<'EOT';
Message-ID: <ODM2bWFpbGVyLmRpZWJlYS40MjYyNjE2LjEyOTU1NDE2MTg=@out-p-h.customernews.net>
To: "Angie Morestead" <marmot@furrytorium.com>
EOT

my @tos=(
        q(To:"Furry Marmot" <marmot@furrytorium.com>)
        ,q(To:"Mr.Furry Marmot" <marmot@furrytorium.com>)
        ,q(To:"pharmacy" <marmot@furrytorium.com>)
        ,q(To:<marmot@furrytorium.com>)
        ,q(To:<test@furrytorium.com>)
        );

foreach my $to( @tos){

    $text =~ s/To:.*/$to/;
    print "$text\n";

    ###two condition version
    if ($text =~
            m{
                ^(?:From|To):
                \s*
                ".*Furry\s{1}Marmot"
                \s*
                <marmot\@furrytorium\.com>
            }mx
        ||
        $text =~
            m{
                ^(?:From|To):
                \s*
                <marmot\@furrytorium\.com>
            }mx
        )
    {
        print "### with two cond, ok, matched=#$&#\n";
    }else {
        print "### with two cond, ng\n";
    }

    ###one condition
    if ($text =~ m{
        ^(?:From|To):   #From: or To:
        \s*
        "               #<---here Where are you gone?
        (?!.*Furry\s+Marmot) #
        [^"]*           #
        "               #
        \s+             #
        <marmot\@furrytorium\.com>
        }mx
    ){
        print "### Spam!! ,matched=#$&#\n";
    }else {
        print "### not Spam!!\n";
    }
    print "\n\n";
}