use Path::Tiny qw/ path /;
my @files = path( 'anypath' )->children( qr/^[a-z].+\.txt$/ );