Code: ( text )
#!/usr/bin/perl -w
use strict;
# replacing double back slash...
my $string1 = "-----\\---------";
$string1 =~ s/"\\"/"\"/g;
print "The resulting value is : $string1 \n";