# uninterpolated string
my $string = '\\\\ double escape \single escape';

# print it
print "$string\n";

# outputs - "\\ double escape \single escape"

# do your replace
$string =~ s/\\/\\\\/g;

# print it again
print "$string\n";

# output is '\\\\ double escape \\single escape'