Select Code to Download

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

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

#!/usr/bin/perl

...
use warnings;

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