opendir (DIR, $dir) or die $!; my @textFiles = grep /\.txt/, readdir DIR;