my ($first, @rest) = unpack "U20A10A10A10", $string;