open (FILE, "text5.txt") || die "probleme";
print "Ajoutez ici les lignes que vous voulez au fichier text5.txt\n";while ($ligne = <>) { $texte .= $ligne;
 print FILE $texte;}print "Voici le texte text5.txt à présent:\n";
print $texte