#!/opt/gnu/bin/perl -p
#
# NODBASE -- Remove the dbase field from the catalog file
# Usage: mv cdbscatalog.dat cdbscatalog.dat.OLD
#        nodbase.pl cdbscatalog.dat.OLD >cdbscatalog.dat

if (/^\#/) {
    s/DBTABLE\t//;
} else {
    s/^\w+\s+//;
}