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