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

print $string;