my $x='\\what will I get?.'
$x =~ s/\\/\\\\/
print $x

##</code><code>##

$x =~ s/\\/\\\\/g