Обрезать текст по слову

подскажите как обрезать длинные дески, с сохранием целостности слов?
Например:
Dildofucked and tonguefucked teen hottie licks mature lesbian's pussy

если обрезать substr($desc,0,50)
получается
Dildofucked and tonguefucked teen hottie licks mat
слово обрезано

Что сделать чтобы получалось либо:
Dildofucked and tonguefucked teen hottie licks mature
либо
Dildofucked and tonguefucked teen hottie licks

Сохрание смысла не важно.

алгоритм: разбиваешь на массив, в цикле присоединяешь по слову, если длина становится больше выходишь из цикла

по-другому никак?
только регулярными не решается?

webmaster779 писал:

алгоритм: разбиваешь на массив, в цикле присоединяешь по слову, если длина становится больше выходишь из цикла

Оффтопик:
<?
$letterscount=50;
$desc = "Dildofucked and tonguefucked teen hottie licks mature lesbian's pussy";
$words = explode(" ",$desc);
$subdesc = "";
$i=0;
while ($i<count($words)){
$sudbesc .= $words[$i]." ";
if (strlen($sudbesc) >= $letterscount)
break;
$i++;
}
echo $sudbesc;
?>

vashman:

Всех оценил, но придется так оставить.
Я искал изящное и короткое решение.

webmaster779 писал:

vashman:

прикол в том что я именно так и писал. а потом в топик заглянул )

есть такая фун-ия wordwrap

<?
list($str)=explode("\n",wordwrap("asdsad dasda dsda a sdsadsads sd",20));
echo $str;
?>

$s="Dildofucked and tongue fucked young teen hottie licks mature lesbian's pussy";

preg_match("/^([\w \d \.,\'\"]{1,50} )/",$s,$ok);
print chop($ok[1]);