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