DB<2> print $str                                                              
\x{A3f4}
  DB<3> print "$str"                                                            
\x{A3f4}