Perl supports \e and \b (in bracketed character classes). Use these on
outputting like we do \t and \n, instead of a hex value
if (!isPRINT(c)) {
switch (c) {
case '\a': Perl_sv_catpvf(aTHX_ sv, "\\a"); break;
+ case '\b': Perl_sv_catpvf(aTHX_ sv, "\\b"); break;
+ case ESC_NATIVE: Perl_sv_catpvf(aTHX_ sv, "\\e"); break;
case '\f': Perl_sv_catpvf(aTHX_ sv, "\\f"); break;
case '\n': Perl_sv_catpvf(aTHX_ sv, "\\n"); break;
case '\r': Perl_sv_catpvf(aTHX_ sv, "\\r"); break;