Zeilenumbruch erzwingen oder Perl Mittel nutzen

[jonny]

Hallo,

von Text::Wrap habe ich auch schon gelesen.

Das ist IMO kein optimaler Weg.

Ich habe jetzt mal fleißig gesucht und das hier testweise angewendet:

my $string="DiesisteinTest!";
$string=~s/(.{7})/\1<br>/;
print "$string\n";

Diesist<br>ein Test!

Wie findest du das? Wäre das ok oder zu umständlich?

Mfg,
Jonny