Wenn kein Whitespace gefunden, Leerzeichen erzwingen?

[MudGuard]

Hi,

Ich habe es zur Probe mal so versucht, dass Perl auf jeden Fall beispielsweise beim 7. Zeichen umbricht, aber bisher ohne Erfolg.
Bei einer Zeichenfolge von 1234567890 passiert mit diesem Ausdruck folgendes:
$changetext =~ s/(.*)(.){7}/$1$2\n/;

$2 soll doch wohl 7 Zeichen enthalten?
Dann muß die {7} in die Klammer.
Außerdem willst Du doch den Zeilenumbruch zwischen den beiden Teilen, oder?

Also
$changetext =~ s/(.*)(.{7})/$1\n$2/;

cu,
Andreas