DB<131> dd $rr
"\x84\xC3\x96\xC3\x9C.\r\n\r\n"

  DB<132> $start=0

  DB<133> $rru = Encode::decode('utf8',$rr, sub{ my $broken = shift; $start++; "" });

  DB<134> dd $rru
"\xD6\xDC.\r\n\r\n"

  DB<135> p $start
1
  DB<136>        

##</code><code>##

 DB<79> h p
p expr        Same as "print {DB::OUT} expr" in current package.

  DB<80> h x
x expr        Evals expression in list context, dumps the result.

##</code><code>##

  DB<159> $start=0

  DB<160> $rru = Encode::decode('utf8',$rr,sub{ $start++; return "" });

  DB<161> $sub= substr $rr,$start

  DB<162> $rru2 = Encode::decode('utf8',$sub ,Encode::FB_CROAK);

  DB<163> p $rru2 eq $rru
1
  DB<164>