timethese(-3, {
    Hofmator  => '($chunk) = substr($string,0,201) =~ /(.*\S)\s/s',
    japhy     => '($chunk) = $string =~ /^(.{1,200})(?<!\s)(?!\w)/s;',
    tye       => '($chunk) = $string =~ /^(.{0,199}\S)\s/s',
});