<perl>
$Anfang = substr($Text, 0, $laenge);
out "$Text ... <a href=URL>mehr</a>";
</perl>

<perl>
$Ende = substr($Text, $laenge);
$Stop = index($Ende,"\ ");
$Ende = substr($Ende, 1, $Stop);
$Anfang = substr($Text, 0, $laenge);
out "$Text$Ende ... <a href=URL>mehr</a>";
</perl>