my $extlist = join('|', map {quotemeta} @extensions);