Quitte a utiliser say plutot que print, autant le faire partout

pad-ffdn.pl

@@ -128,14 +128,14 @@ say $fh "**Nouvelle des membres triés par tirage aléatoire** (avec un *prng* i
 say $fh "";
 foreach (shuffle @membres)
 {
-    print $fh "$_ \n \n \n";
+    say $fh "$_ \n \n";
 }
 say $fh "";
 say $fh "**Les pas (encore) membres :**";
 say $fh "";
 foreach (shuffle @nonmembres)
 {
-    print $fh "$_ \n \n \n";
+    say $fh "$_ \n \n";
 }
 
 close $fh;