my $s2;
for ( split /(\s+)/, $s ) {
    last if length( $s2 . $_ ) > 100;
    $s2 .= $_;
}
print $s2;