Para comparar os registros de data e hora do arquivo (presumivelmente a hora da modificação), você precisa stat()
de cada arquivo e comparar o ano, mês e dia correspondentes. Aqui está um exemplo que codifica um filtro para 2018-06-29:
next unless $file =~ /DTA$/;
my $fullpath = $dir . "/" . $file;
my $wantedyear=2018;
my $wantedmonth=5; ## zero-based
my $wantedday=29;
my $mtime=(stat $fullpath)[9];
my $fileyear=(localtime($mtime))[5] + 1900;
next unless $fileyear == $wantedyear;
my $filemonth=(localtime($mtime))[4];
next unless $filemonth == $wantedmonth;
my $fileday=(localtime($mtime))[3];
next unless $fileday == $wantedday;