»» vor jeder zeile

[Matti Maekitalo]

use Mosche;

Wobei es einfacher wäre, /^/ durch /»»/ zuersetzen. Der Zeilenanfang bleibt davon unberührt, und mann muss keine Sonderfälle (Unix, Windows, Mac) betrachten.

Wenn jede Zeile, wovon ich _nicht_ ausgegangen bin (der Autor hat ja geschrieben, dass
der gesamte Text in einer Variablen vorliegt), separat verarbeitet wird, ja. Wenn nein,
wird nur der _String_-Anfang gematched.

Du hast insoweit recht, dass ich nicht erwähnt habe, dass er den global(g) und den multiple-lines(m) modifier benötigt. Beispiel.

############
my $string = <<ENDE;
Dies ist ein String
mit
Zeilenumbrüchen.

Blah
ENDE

$string =~ s/^/»» /gm;
print $string;
############
ergibt:

Dies ist ein String
mit
Zeilenumbrüchen.

Blah

use Tschoe qw(Matti);