I would quite likely use a hash instead of a joined OR pattern.

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

and then instead of

    return unless m/$re/
[download]

I'd put

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

ihb