rewrite

Jeg sidder lige og roder med noget perl som jeg ikke helt kan finde rundt i.
Jeg læser noget data fra en fil og lægger derpå 1 til tallet. Hvordan kan jeg så erstatte det samme tal igen. Det skal gøre i en hel del linier så det skal helst ikke være alt for uoptimalt.

Her er noget af koden:
    open(chan, "+< stat/chan.stat") || die;
    while($chanline = <chan>)
        {
        if($chanline !~ /\#.*/)
            {
            #this is where different data is read and rewrite
            if($chanline =~ /totallines\s.*/)
                {
                ($totallines) = $chanline =~ /totallines\s(\d*)/;
                $totallines++;

                printf("total: $totallines\n");
                }
           
            #more

            }
        }   
    close(chan);

Håber det ikke ser alt for forvirrende ud når jeg trykker "opret spørgsmål". Har min tvivl :P

Den vil som den læser/skriver fra/til ser sådan ud:

# DO NOT EDIT!!!

totallines 0
totalwords 0
totalchars 0


Håber nogen kan hjælpe.