... ps I got this anwser from a japanese text book.

Well, I saw use Jcode; and made the assumption(d'oh) that you've actually used it. If you've got perl 5.7 and up, you should definetly just use Encode (as reccomended in perlunicode) and use

use Encode qw/ encode decode /;
my $name_coded = encode("7bit-jis", decode("euc-jp",$name));
[download]

That is assuming that $name is encoded in euc-jp, and 7bit-jis is what you actually want (as opposed to shiftjis, in which case you just put in shiftjis ).