Grazie per la risposta, ma comunque non funziona, non mi fa leggere il file.
Ho provato :

$tot=""; #per generare il nuovo file
open (FL,"miofile.txt");
while (<FL> ) #leggo riga per riga
{
if ($_ =~ /cognome:Vegliante/) #ovvero se la riga contiene la parola prova
{$_ =~ s/cognome:Vegliante/cognome:Becker/g} #ovvero sostituisci la parola prova con la nuova parola
$tot="$tot$_"; #rigenero il file con la riga modificata
}
close (FL);
print "Content-Type: text/html\n\n";
print<<EOF;

e come risultato mi cancellato il tutto senza scrivere niente.
Ho provato ha posizionarmi con gli array su una detrminata parola e funziona, peró
ho sempre il problema per inserire il tutto in un tag, prima per leggere l´attuale parola nel tag stesso, poi per modicarla e salvarla senza cancellare le altre avendo una risposta da un´ altra pafina HTML con un link per salvare il tutto.

Lo so che sono un testone peró ti prego aiutami, ho visto che sei molto bravo e principalmente hai molta esperienza.

#!/usr/bin/perl
use strict;
my @merk;
my $zeile;
open (TXT, "<miofile.txt") || die "$!\n";
while (<TXT>) {
$merk[$.] = $_;

}
close TXT;

foreach $zeile ( @merk ) {

}

print $merk[3];#corrisponde alla posizione cognome:Vegliante