# get a 5-byte string, skip 3, grab 2 8-byte strings, then the rest
($leading, $s1, $s2, $trailing) = unpack("A5 x3 A8 A8 A*",$data);
####
$string = "My uncle John is Jamaica";
$binary=unpack("B*",$string);
####
$string = "My uncle John is Jamaica";
$hexadecimal=unpack("H*",$string);
$string=pack("H*",$hexadecimal);