Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
X Xthis is a Xstring
```