use strict;

my $name = 'aramis.DAT';
opendir $dh, '/directory';
my @files = readdir($dh);
closedir $dh;
for my $file (@files){
    if ($file =~ m/$names/i){
       open (my $fh, '<', "/directory/$file");
       . . .
       close $fh;
    }
}
[download]