my $string = 'This is\na special\tstring';

my %replace = map { $_ => eval "\\$_" } (qw( n r t ));

$string =~ s/\\(.)/exists $replace{$1} ? $replace{$1} : $1/ge;
print $string;