Ersetzen

[HerrVogt]

Ich wuensche einen Herzlichen Guten Morgen.

Bin ein kompletter neuling auf dem Gebiet der Programmierung und bereits mein erstes groesseres Program scheint zu scheitern.
Also ich habe eine Datei die gefolgt aufgabaut ist:

Blogeintrag verfasst von Bodo am 11.03.2008
Blogeintrag verfasst von Admin am 12.03.2008
und so weiter ...

Das hab ich mit einem array in eine datei geschrieben.
Ich moechte jetzt den Namen aendern also zum Beispiel Bodo oder Admin. Das schaff ich auch nur mein Program aendert es nicht in der Datei. Ich bin gerade am Firmenrechner koennte also den Code erst heute Abend euch geben aber heute Abend will ich doch schon weitermachen ;-))
Ich kann also nur aus dem Kopf raus einen Code schreiben wie er bei mir zuhause auch UNGEFAEHR ist - der aufbau muesste aber stimmen.

  
#!/usr/bin/perl -w  
  
open ($blog, "<blog.txt");  
while (<$blog>) {  
$verfasser = <>;  
chomp $verfasser;  
if ($blog =~ /$verfasser/) {  
@aenderung = split/ */,$verfasser;  
$ersetzen = <>;  
chomp $ersetzen;  
open ($neu, ">>blog.txt");  
s/$aenderung[3]/$ersetzen/;  
close $neu;  
}  
}  
close $blog;  

Es wird in der Datei einfach nicht geaendert was mache ich falsch?

Bitte um Antwort, Hugo Vogt.