Coucou

Je souhaite supprimer toutes les lignes de mon fichier commencant par #.......
J'ai fait le script suivant qui me supprime bien cette ligne à chaque fois qu'elle est présente mais qui me met une ligne vide a la place. Comment je peux faire pour que je n'ai pas cette ligne vide qui apparaisse :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl -w
 
$fichier1="xaa";
$fichier2="Fichier_Unigene";
 
open (MOD, "$fichier1");
open (NEW, ">$fichier2");
 
while ($ligne=<MOD>) {
    chomp $ligne;
    if ($ligne =~ /^\# .*/x) {next;}
 
 
    else {print NEW"$ligne\n";}
 
 }
 
close (MOD);
close (NEW);
Merci d'avance
Perlgirl