Select Code to Download

use strict;
use warnings;
...
    print $_, "\n";
  }
}

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