#!/usr/bin/perl

open(FIC, $ARGV[0]);

$FichierSortie="DiscoursSortieAvecTitre.xml";
open(Sortie,">$FichierSortie");

while ($ligne = <FIC>)
{
	if ($ligne=~ /(.*\/0.)/ ) 
        {
                $ligne=~s/\n//g;
                print Sortie "<titre>".$ligne."</titre>\n";
        }
	else 
		{print Sortie $ligne;}
}      

close(FIC);
close(Sortie);
