if ($name =~ s/^$subcat//) {
            $output .= " $subcat/1";
        }

##</code><code>##

        if ($name =~ /^$subcat/) {
            $output .= " $subcat/";
            my $c = 0;
            $c++ while $name =~ s/^$subcat//;
            $output .= $c;
        }
        # Special case: we don't want "null/null" after  
        # adding valid subcats.
        last if not $name;