{ my %T = ("\n" => "\\n", "\r" => "\\r", "\\" => "\\\\");
  sub escape { s/[\r\n\\]/$T{$&}/g for @_ }
}