Select Code to Download

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

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