#!/usr/bin/perl -w use strict; use Data::Dumper; use XML::Simple; my $gXML; my $gXMLDoc; my $gXMLString; $/ = undef; $gXMLString = ; $gXML = XML::Simple->new(); $gXMLDoc = $gXML->XMLin($gXMLString); print 'Before:',"\n",'-' x 40,"\n",Dumper($gXMLDoc),"\n"; $gXMLDoc = $gXML->XMLin($gXMLString, keyattr => ''); print 'After:',"\n",'-' x 40,"\n",Dumper($gXMLDoc),"\n"; __DATA__