open (FENT,"amants.txt") || die "Probleme"; open (FSORT,">copie-amants.txt") || die "Probleme";
$ligne = <FENT>;
while ($ligne = <>) { $texte .= $ligne;
 print FSORT $texte;}
print $texte