Foro - Perl en Español

Hola. Estaba viendo la clásica función de "leer completo" que tienen todos los foros y traté de hacer lo mismo con un código HTML con muchas etiquetas que después se reemplazan. Lo hice con la función substr(). Clásicamente funciona bien si el código no tiene etiquetas pero en mi caso sí las tiene y cuando uso substr() corta las etiquetas delatando todo el código y mostrándose mal. Intenté todo pero siempre es igual.

¿ Hay alguna forma inteligente de evitar este problema ?

Lo que hace estos foros, por ejemplo, es quitar todas las marcas HTML, y luego cortar por un máximo, poniendo '...' al final (en el caso de que la longitud sea mayor.

Esta solución es simple. Y sencilla. Pero con la desventaja de que si, al principio del mensaje largo, hay un código en Perl, salen las sentencias Perl, todas en una línea, como si fuese texto normal. Y lo mismo para listas o tablas.

La forma inteligente... sería crear el DOM del documento, y luego recorrerlo, obviar las partes que no son texto (párrafo y flujo normal de texto), e irlo agregando a una variable... hasta que la variable sobrepase un tamaño. Y luego recortar igual que antes.