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