$str =~ s/"[^"]+"//gs;