Help for this page
${^FS_ENCODING}{foo} = 'A'; ${^FS_ENCODING}{foo}{bar} = 'B'; ... open my $fh, ">", "/foo/bar/baz/quux/blah/hello.txt";
open my $fh, ">", join("/", "" ... encode(detect_encoding("/foo/bar/baz/quux"), "blah"), encode(detect_encoding("/foo/bar/baz/quux/blah"), "hello.txt") +, );