TDN est membre + on enleve des espaces entre les retours

a la ligne

pad-ffdn.pl

@@ -45,11 +45,11 @@ my @membres = ("Apinnet",
 	       "tetaneutral.net",
 	       "Igwan.net",
 	       "Aïl-network",
-	       "Neutrinet"
+	       "Neutrinet",
+	       "TDN"
     );
 
 my @nonmembres = ( "Vianet",
-		   "TDN",
 		   "Armagnet",
 		   "DRN",
 		   "Troyes Télécom"
@@ -126,14 +126,14 @@ say $fh "**Nouvelle des membres triés par tirage aléatoire** (avec un *prng* i
 say $fh "";
 foreach (shuffle @membres)
 {
-    say $fh "$_ \n \n";
+    say $fh "$_ \n\n";
 }
 say $fh "";
 say $fh "**Les pas (encore) membres :**";
 say $fh "";
 foreach (shuffle @nonmembres)
 {
-    say $fh "$_ \n \n";
+    say $fh "$_ \n\n";
 }
 
 close $fh;