s/(\s+)\w/${1}_/g

##</code><code>##

s/(\s)\w/${1}_/g

##</code><code>##

s/(?<=\s)\w/_/g

##</code><code>##

s/\s\K\w/_/g