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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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