Select Code to Download

my @files = File::Find::Rule->file()
                            ->name(qr/^.{36}\.txt$/)
                            ->maxdepth(1)
                            ->in("G:/Perl_program/Input");
my @tags = map { /(.{36})\.txt$/ ? $1 : undef } @files;