my $uuid = "vz\336\315\216\322\341\21\221\364\261\220z\240\267\344";
# hex 767adecd8ed2e11191f4b1907aa0b7e4

my ($uu1, $uu2) = unpack('H8 H*', $uuid);
say $uu1; # 767adecd
say $uu2; # 8ed2e11191f4b1907aa0b7e4