SPUG: Regex that matches everything except a specific string

[ced at carios2.ca.boeing.com]

> if ($address !~ /^richard\@richard-anderson\.org$/) { print "Spam\n" }

...

if ( $address =~ /.*(?<!richard at richard-anderson\.org$/ ) {
    print "ok\n";
} else {
    print "spam";
}

--
Charles DeRykus