my $path = "Filer/$filename";

##</code><code>##

use File::Spec;
my $path = File::Spec->catfile('Filer', $filename");

##</code><code>##

my @paths = path("Filer")->children( qr/\.txt\z/ );
# now do something with each element of @paths