$string =~ s/(_)([^'])/$1'$2/g;