while ( length($string) > 45 ) {
	$_ = $string;
	/\s.*$/
	$string = $`;
}