#!/usr/bin/perl

open(FIC, $ARGV[0]);

$FichierSortie="ajouteSent_$ARGV[0]";
open(Sortie,">$FichierSortie");

while ($ligne = <FIC>)
{
	if ($ligne!~ /<.*>/ ) 
        {
                $ligne=~s/\n//g;
                print Sortie "<s>\n".$ligne."\n</s>\n";   #ajoute balise de phrase <s> sur une ligne
        }
	else 
		{print Sortie $ligne;}
}      

close(FIC);
close(Sortie);