Listing only those mappings that are different from taking off the leading backslash:

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

This still gives fine control, but you don't have to list everything.