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