my %xlat = ('\\' => "\\", 'n' => "\n", 'r' => "\r");

s/\G(?:\\(.)|(.))/defined($1) ? $xlat{$1} : $2/eg;