open SRC, '<:encoding(utf-8)', './text.utf' or die "src: $!"; open DST, '>:encoding(iso-8859-13)', './text.iso' or die "dst: $!"; @text = ; print DST @text; close SRC; close DST;