Re^2: Interpretting character combinations as special characters.

[JavaFan]

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;

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