$catreg = "^(<[A-Za-z0-9]+>)*<H1>(<[A-Za-z0-9]+>)*([A-Za-z0-9]+)";

##</code><code>##

$catreg = "^(<[A-Za-z0-9]+>)*<H1>(<[A-Za-z0-9]+>)*([A-Za-z0-9]+)";

##</code><code>##

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