use warnings;
use strict;
use XML::Twig;

my $str = <<EOF;
<foo>

  <!-- Dog section -->

  <object type="Dog" >
    <property name="id" value="0" />
    <property name="name" value="REX" />
    <property name="status" value="alive" />
    <property name="mode" value="owned" />
    <property name="dog_breed_id" value="0" />
    <property name="dog_breed_name" value="Husky" />
    <property name="capacity" value="105" />
    <property name="size" value="big" />
    <property name="location" value="canada" />
  </object >

</foo> 
EOF

my $t = XML::Twig->new(
    twig_handlers => { object => \&woof }
);
$t->parse($str);

sub woof {
    my ($t, $obj) = @_;
    if ($obj->att('type') eq 'Dog') {
        my $name;
        my $id;
        my $bname;
        for my $prop ($obj->children('property')) {
            $name  = $prop->att('value') if $prop->att('name') eq 'name';
            $id    = $prop->att('value') if $prop->att('name') eq 'dog_breed_id';
            $bname = $prop->att('value') if $prop->att('name') eq 'dog_breed_name';
        }
        print "$name,$id,$bname\n";
    }
}

__END__

REX,0,Husky