Help for this page
my %ext; @ext{@ext} = (1) x @ext;
return unless m/$re/
return unless /(\.[^.]+$)/ and $ext{$1};