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

##</code><code>##

    return unless m/$re/

##</code><code>##

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