Help for this page

Select Code to Download

Select or download this

$ perl -le'print "abc def" =~ m[(^.{0,100})\s]'
abc

Select or download this
```
m[(^.{0,100})(?!\S)]
```
Select or download this
```
m[(^.{0,100})(\s|$)]
```