Eintrag in Datei über anderen & Zeilenumbrüche

[Alex]

hi,

setzte vor jeden eintrag immer ein bestimmtes zeichen.

my $x1 = $q->param('news');
my $news = "°°\n$x1";

my $newnews;

open(FH, "<news") or die $!;
while(<FH>) {
s/°°/$news/g;
$news .= $_;
}
close(FH);

open(FH, ">news") or die $!;
print FH $news;
close(FH);

ich habe es nicht getestet, vielleicht sind ein paar fehler drin.