find(sub { $File::Find::name =~ m/${directory}(.*)$/; push @files, $1},  $directory);
@files = grep { is_dos_format("$directory/$_") } @files;