$str =~ s|'|\\'|g;