print unpack("H*", $s);