Thanks a lot Takefu! It solves perfectly. I'm commiting it, and so sorry for the late response.
On Tue Oct 11 23:03:59 2011, takefu@airport.fm wrote:
Show quoted text> How about this?
>
> --- Translate.pm.orig 2005-06-09 05:45:37.000000000 +0900
> +++ Translate.pm 2011-10-12 11:56:23.000000000 +0900
> @@ -101,7 +101,7 @@
> shift;
> local (@hex)=@_;my $i;
> for ($i=0;$i<=$#hex;$i++) {
> - $hex[$i]=ord(unpack("A", pack("H*", $hex[$i])));
> + $hex[$i]=ord(pack("H*", $hex[$i]));
> }
> return 1,@hex;
> }
>