my @exten = qw( .txt .csv );
my $exten = join('|', map quotemeta, @exten);