#! 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>