my $s = '   this is a  string';
( my $t = $s ) =~ s/(?<!\w)\s/X/g;
print $t, $/;
__END__
XXXthis is a Xstring