#! /usr/bin/perl

use strict ;
use warnings ;

use XML::Simple ;
use Data::Dumper ;

my $xml = qq{
    <message><file>D:\linkctltr.cxx</file><line>68</line><type>Note</type>
    <codee>970</codee><desc>Use outside of a typedef</desc></message>
} ;

my $data = XMLin( $xml ) ;
print Dumper( $data ) ;