Adding to the ?above —

A generic solution must escape the escape character also, otherwise the transformation isn't reversible.

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