http://www.perlmonks.org?node_id=818593


in reply to Legacy Data Files on a Case-sensitive File-system

Sounds like you have the right idea. Is this a little closer to what you want?
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; } }