print $string =~ /^(.{0,100})(?!\S)/;