use locale; use utf8; use File::Spec; foreach (@ARGV) { my ($volume, $path, $name) = File::Spec->splitpath($_); $name =~ s,([^/]*$),lc $1,eo; rename $_, File::Spec->catpath($volume, $path, $name); }Opět při správně nastaveném systému by celá procedura měla proběhnout i bez opičinek s encode/decode.