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

##</code><code>##

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

##</code><code>##

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