my %mapping = (
   '\t'  => "\t",
   '\n'  => "\n",
   '\)'  => ')'.
   '\(   => '(',
);

my $re = join '|', map quotemeta, keys %mapping;

$str =~ s/($re)/$mapping{$1}/g;