s/([\000-\037\177])/ '^' . pack('c', ord($1) ^ 64) /eg;