@bytes = unpack "C*", $_; # break utf8 string into bytes
for ($i=0; $i<@bytes; $i+=8) {
   $j = ($i+7 < $#bytes) ? $i+7 : $#bytes;
   print join(" ", map {sprintf "%.2x", $bytes[$_]} $i .. $j), $/;
}