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