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