grep -- '-oid' *conf *schema | \ perl -e 'while(<>){if (/([\w\-]+-oid)/) \ {$o= $1;unless($h{$o}++){ $n++;print "objectidentifier $o 1953.$n\n";}}}' > ! oid.nums