Select Code to Download

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