sub enc_hex {
		my @h = split(//,unpack('H*',(shift));
		my ($i, $out, $first);
		foreach $i(@h) {if (!$first){$out.="\\$i"; $first=1;} else {$out.=$i;$first='';}}
		return $out;
		}