#!/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";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

print "Contents of ARGV:\n>=", join( "=<\n>=", @ARGV), "=<\n";