($text) = $var =~ /^(.{200})(?:\s+\w*)?/s;
print $text.$/;