use Path::Tiny qw/ path /;
my @textfiles = path( $dir )->children( qr/\.txt$/i );