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