Select Code to Download

    my %ext;
    @ext{@ext} = (1) x @ext;

    return unless m/$re/

    return unless /(\.[^.]+$)/ and $ext{$1};