[Perl] passer un fichier en parametre

Bonjour,
merci ça marche.
Je veux supprimer une ligne dans un fichier txt.
les ligne commencent chacune avec 6 caractere qui lui sont unique; c-à-d la clé de chaque ligne donc je peux faire la recherche pour trouver la ligne qui contient (par exeple: 222222 comme six premier caracteres). mais je ne sais pas comment garde ce pointeur et supprimer seulement cette ligne.

Avez vous une idée?

comme n'importe quel paramètre de type string open(FH, "nom du fichier");