my %imap = ( "\n" => '\n', "\t" => '\t' );
my $specials = join '|', keys %imap;
$_ = "a\nb\tcksl";
s/($specials)/$imap{$1}/gms;