$string = decode("euc-jp", $string);

##</code><code>##

$char_string = decode("euc-jp", $jp_bytes);
$utf8_bytes = encode("utf8", $char_string);

##</code><code>##

$utf8_bytes = encode("utf8", decode("euc-jp", $jp_bytes));

##</code><code>##

$utf8_bytes = from_to($jp_bytes, "euc-jp", "utf8");

##</code><code>##

$char_string = decode("euc-jp", $jp_bytes);
binmode FH, ":encoding(euc-jp)";
print FH $char_string;