Re^2: substr question

[ikegami]

That's the way I'd go too, but there's a little problem in your implementation:

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

Fix:

m[(^.{0,100})(?!\S)]

m[(^.{0,100})(\s|$)]