#!/usr/bin/perl

open(FIC, $ARGV[0]);

$FichierSortie="ajoutePara_$ARGV[0]";
open(Sortie,">$FichierSortie");

while ($ligne = <FIC>)
{
	if ($ligne!~ /<.*>/ ) 
        {
                $ligne=~s/\n//g;
                print Sortie "<p>\n".$ligne."\n</p>\n";   #ajoute balise de paragrahe sur une ligne
        }
	else 
		{print Sortie $ligne;}
}      

close(FIC);
close(Sortie);



