my $extlist = join('|', @extensions);