use warnings;
use strict;
use File::Slurp;

my @files = map { "$dir/$_" } grep { -f "$dir/$_" and /^files.*\.txt$/
+ } read_dir($dir);
[download]