my $foo = q!key2="val1","val2","val3"!;
my $bar = $foo =~ tr/"/"/; 
print "$bar\n";