<?xml version="1.0" encoding="UTF-8"?>
      <Profile origin="get" version="2.1" date="2013.05.20">
                         <Catalog id="sys" version="2.1">
                          <Parameter name="prim" value="2"/>
                           <Parameter name="second" value="3"/>
                           <Parameter name="copy" value="4"/>
                           <Parameter name="force" value="1"/>
                           <Parameter name="always" value="0"/>
                          <Parameter name="type" value="5" Type="False"/>
                          <Parameter name="memory" value="allow"/>
                         </Catalog>
                        </profile>

#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
my $parser = XML::Simple->new( KeepRoot => 1 );

# Création du fichier résultat
my $FichierResulat = 'resultat.txt';
open( my $FhResultat, '>', $FichierResulat )
  or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
my $doc = $parser->XMLin('compute_sys.xml');

# Tout le fichier XML est dans $doc sous forme d'arbre
foreach my $Catalog (@{ $doc -> {Catalog}->{name}}){
  print {$FhResultat} "";
  print {$FhResultat} str_if ($Catalog->{name});
  print {$FhResultat} "";
  print {$FhResultat} str_if ($Catalog->{value});

}
close($FhResultat);

sub is_array {
        my ($var) = @_;
        return ( ref($var) eq 'ARRAY' );
}

sub str_if {
        my ( $str, $default ) = @_;
        return $default unless $str;
        return $str;
}