#!/usr/bin/perl -w
use strict;

# replacing double back slash...
my $string1 = "-----\\---------";
print "The starting  value is: $string1\n";  # add this line

$string1 =~ s/"\\"/"\"/g;
print "The resulting value is: $string1\n";