my $req_uri_re = join '|', map quotemeta, qw(
    /bulletin/ .css .ico formmail /prosp/
    /calendar/ /edit/    
    /tmp/calendar2002-3/pgradh/regs/029.html/
);

if ($ENV{'HTTP_REFERER'} and $ENV{'REMOTE_ADDR'} ne "129.215.67.96"
    and $ENV{REQUEST_URI} !~ $req_uri_re) { }

##</code><code>##

## false if  $ENV{'REQUEST_URI'} contains "FalseIfJustThis"
if($ENV{REQUEST_URI} !~ $regex) { }

## true if $ENV{'REQUEST_URI'} contains "FalseIfJustThis"
##         AND contains "ButIfAlsoThisThenTrue")
if($ENV{REQUEST_URI} =~ $regex and $ENV{REQUEST_URI} =~ $regex2) { }