#!/usr/bin/perl -w
use warnings;
use strict;
use Spreadsheet::Read 'ReadData';
use Encode 'decode';
use XML::LibXML;
use Text::FixEOL;

no warnings;

my $INFILE = 'TestPGR.xlsx';
my $ENCODING = 'MacRoman';
my $OUTFILE = 'TestPGR.xml';
my %FIELDS = ( 1=>'docid', 2=>'title', 3=>'version', 4=>'revision',
	5=>'node_order', 6=>'description', 7=>'status', 8=>'type',
	9=>'expected_coverage', );

my $text = "Sur toutes les ressources « Usine » on suivra les valeurs suivantes :
• Temps de préparation machine (Heures machine des Arrêts programmés)";