my $string = '"foo"';
my $string2 = '"foo';
   $string =~ s/\"(.*?)\"|\"(.*?)/$1$2/;
   $string2 =~ s/\"(.*?)\"|\"(.*?)/$1$2/;
print "$string -- $string2\n";