my @files = glob("$dir/*.txt");

##</code><code>##

use File::Slurp;

my $text = read_file($filename);

# or

my @lines = read_file($filename);