Select Code to Download

    my $filter = @$custs ? join('|', map quotemeta($_),@$custs) : "";
    $filter=qr/^(?!_)(?:$filter)/i;
...
            ();
        }
    } glob File::Spec->catfile( $root, '*' );