use Win32; use File::Find; my @paths; find sub { my $path = Win32::GetLongPathName($File::Find::name); # now use Unicode semantics on $path push(@paths, $path) if $path =~ /\x{ABCD}/; }, "my_dir";