Select Code to Download

my $string = '"foo"';
   $string =~ s/\"(.*?)\"?/$1/;

print $string;

my $string = '"foo"';
   $string =~ s/"(.*?)"?/_$1_/; # note that you don't have to escape "

print $string; # prints __foo"