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