$val .= sprintf("%02x",$_) for unpack "CCCCCC", $octetstr;