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