#!/usr/bin/perl

open(FIC, $ARGV[0]) or die "impossible ouvrir $ARGV[0] : $!";
$FichierSortie=$ARGV[0]."_modif.txt";

open(Sortie,">$FichierSortie");

while (<FIC>)
{
my $Ligne=$_;
$Ligne=~s/(.*?)(\n)$/$1\r/g;
#on remplace \n par \r car Cordial n'interprète pas \n comme un retour à la ligne.
print Sortie $Ligne;

}