>>645
>>jcode::convert(\$x,"euc");
の前に
$x =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;