$string =~ s/_\K(?=[^'])/'/g;    # 5.10+