local $\ = "\n";
local $_ = '    ';
s/(?<=\s)\s/&nbsp;/g;
print;
print($_ eq ' &nbsp;&nbsp;&nbsp;' ? 'correct' : 'wrong');
__END__
 &nbsp;&nbsp;&nbsp;
correct