s/^\s+//;
s{ [^\S\n]* (?: (\n)\s* | [^\S\n]+ ) }{ $1 || ' ' }gex

##</code><code>##

s{(?<=(\S))?\s+(?=(\S))?}{length($1.$2)?'':' '}gx

##</code><code>##

s{(?<=(\S))?\s+(?=(\S?))}{length(($1//'').$2)?'':' '}gx

##</code><code>##

s{(^)?\s+(\z)?}{$1//$2//' '}gx