if ( defined (my $rule = $rulelist->{$rulenum}->{REGION} )){
      next RULE if ( $rule =~ s/!// && $line->{REGIONID} == $rule);
      next RULE if ( $line->{REGIONID} != $rule);
      ...