my $pattern = join '|', map "(?:$_)", @filetypes;