in datei nach zeile suchen, vergleichen und evtl. ändern

[Oddiwahn]

Hallo,

ich schreibe grad ein Newssystem-Script bei dem die News direkt in einer HTML-Datei gespeichert werden sollen.

Zu Beginn der Newsdatei sollen noch Ankerverweise mit Monatsrasterung sein, so dass man per Mausklick dierkt zu dem ersten Beitrag des gewählten Monats springen kann.

Dazu soll die Newsdatei in ein Array geladen werden, und dann soll nach dem Tag <!--Auswahlleiste--> gesucht werden.
Darunter befindet sich das <!--aktmonat:07--> Tag (hier z.B. 07), dass dann mit <!--aktmonat:$monat--> verglichen werden soll, wobei $monat den aktuellen Monat enthält. Sollte das Ergebnis falsch sein, soll dann ein neuer Verweis über

print F1 "\n";
         print F1 '<A href="#';
         print F1 "$monat.$jahr";
         print F1 '">[';
         print F1 "$monat.$jahr]</A> |";

hinzugefügt werden.

Bis jetzt hab ich folgendes hinbekommen:

open (F1,">$newsarchiv") || die "Can't Open $newsarchiv: $!\n";

foreach $LINES (@LINES) {
   chomp $LINES;

if (/<!--auswahlleiste-->/) {

[...]
Nur wie gehts dann weiter?

Danke im voraus,
Odi