use B "perlstring";

my $x= "\x{100}";
say perlstring $x;

utf8::encode($x);
say perlstring $x;