#! perl -slw
use strict;
use XML::Simple;

my $xml = XMLin( \*DATA );
print XMLout( $_, NoAttr => 1, RootName => 'book' ) for @{ $xml->{book} };

__DATA__