my ($fragment) = $full_text =~ /^(.{1,200}[^\s]*)/s;