$ perl -E 'my $x = q{asd" efg"}; say $x; $x =~ y/"//d; say $x'
asd" efg"
asd efg