my $start_dir="Z:/test";
opendir (FOLDER, $start_dir);
my @files = readdir FOLDER;
close FOLDER;
@dir_entries = grep{ $_=~ m/$string/i;} @files;