my $x= "\x{B0}F";
say map sprintf("%02X ",ord), split //, $x;