my $char = 'n';
$char =~ s/(n)/\\$1/;