use Data::Dumper; $Data::Dumper::Useqq = 1; { no warnings 'redefine'; sub Data::Dumper::qquote { my $s = shift; return "'$s'"; } } my $str = "abc \x{539f}\x{4f86} xyz"; binmode STDOUT, ':encoding(UTF-8)'; print Dumper $str;