my $encoding = "xxx"; # Probably 'UTF-8' or 'UTF-16LE' for windows
my @files = map { Encode::decode($encoding, $_) } readdir DIR;