$_ = join '', map chr(), 1 .. 0x1f;
tr [\3\5\7]
   [\10\10\10]cd;
print join('', map sprintf("\\%o",ord), split //), $/;
# prints \10\10\3\5\7

$_ = join '', map chr(), 2 .. 0x1f;
tr [\3\5\7]
   [\10\10\10]cd;
print join('', map sprintf("\\%o",ord), split //), $/;
# prints \10\3\5\7


$_ = join '', map chr(), 3 .. 0x1f;
tr [\3\5\7]
   [\10\10\10]cd;
print join('', map sprintf("\\%o",ord), split //), $/;
# prints \3\5\7

   $_ = join '', reverse map chr(), 0,0,0,1,0,1,0,1,0 .. 0xA;
   tr [\3\5\7]
      [\10\10\10]cd;
      print join('', map sprintf("\\%o",ord), split //), $/;
#prints \7\5\3\10\10\10\10\10\10\10\10\10\10\10