while (<>) {
  s/([\000-\037])/'^'.chr(ord($1)+0100)/ge;
  s/\0177/^?/g;
  s/([\200-\377])/sprintf"M-%o", ord($1)/ge;
  print;
}