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