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