Select Code to Download

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

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

# result from map is discarded
# side effect: $val is populated
...
# result from die is discarded (if any), print not done
# side effect: well...
print die;