$str =~ s/'/''/g;