if ( m!$catreg! ) {
	print "found(pre) $cat\n";
	print STDERR "checking for cat :$3:\n";
	$cat = $catlist{$3};
	print "cat == $cat\n";
	next;
    }