pack 'h*', $str;