#! perl -slw
use strict;
use XML::Simple;
use Data::Dump qw[ pp ];

$/ = '</object>';
while( <DATA> ) {
    last if /^\n+$/;
    my $xml = XMLin( $_ );
    pp $xml;
}




__DATA__
<object some_param="abc" other_param="def">
  <attrib1>val1</attrib1>
  <attrib5>val3</attrib5>
</object>
<object some_param="xxx">
  <attrib3>valx</attrib3>
  <attrib7>valy</attrib7>
</object>
<object some_param="xyz">
  <attrib1>valx</attrib1>
  <attrib2>valy</attrib2>
  <attrib3>valx</attrib3>
  <attrib4>valy</attrib4>
  <attrib5>valx</attrib5>
  <attrib6>valy</attrib6>
  <attrib7>valx</attrib7>
  <attrib8>valy</attrib8>
</object>

##</code><code>##

C:\test>t-XML.pl
{
  attrib1     => "val1",
  attrib5     => "val3",
  other_param => "def",
  some_param  => "abc",
}

{ attrib3 => "valx", attrib7 => "valy", some_param => "xxx" }

{
  attrib1    => "valx",
  attrib2    => "valy",
  attrib3    => "valx",
  attrib4    => "valy",
  attrib5    => "valx",
  attrib6    => "valy",
  attrib7    => "valx",
  attrib8    => "valy",
  some_param => "xyz",
}