while(<>) {
    if(/^PORNUM:\s*(\S+)/m) {
        if(exists $skip{$1}) {
            # It matches, and ought to be skipped
            next;
        }
    }
    print;
}

##</code><code>##

my %skip = map { $_ => 1 } 
  qw(PP22x43@.5 PC12x120/25);

##</code><code>##

while(<>) {
    next if /^PORNUM:\s*(\S+)/m and exists $skip{$1};
    print;
}

##</code><code>##

while(<EXCLUDE>) {
    if(/^PORNUM:\s*(\S+)/) {
        $skip{$1} = 1;
    }
}