my $hex= unpack "H*", $string;