my %mapping = (n => "\n", t => "\t");
$str =~ s{\\(.)}{$mapping{$1}//$1}seg;