#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use XML::Simple;
my $xml = XMLin( \*DATA );
pp $xml;
__DATA__
01
00000000020712130852059
8143
172.16.39.88
0
NULL
jW·h®õ¿7a·ØTÙ^N
NULL
IN
1
NO_CTI_DATA
####
[14:58:34.75] C:\test>xmlent.pl
{
CALLDETAILS => {
AGENTID => "NULL",
CALLEEID => "NULL",
CALLERID => pack("H*","a06a57b768aef5bf8a3761b7d854d95e4e"),
CALLSESSIONID => "00000000020712130852059",
CALLTERMSTATUS => "NO_CTI_DATA",
CALLTYPE => "IN",
EXTENSIONNO => 8143,
RINGCOUNT => 1,
STATIONID => "01",
SUBCHANNELID => 0,
ZIVAHCHANNELID => "172.16.39.88",
},
}