Select Code to Download

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

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

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

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