#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $string;

{
    local $/;
    $string = <DATA>;
}

my $ref = XMLin( $string );
print Dumper $ref;

__DATA__
<root>
<Buch>
  <Titel>Titel 1</Titel>
  <Autor>...</Autor>
  <Beschreibung>...</Beschreibung>
</Buch>
<Buch>
  <Titel>Titel 2</Titel>
  <Autor>...</Autor>
  <Beschreibung>...</Beschreibung>
</Buch>
<Buch>
  <Titel>Titel 3</Titel>
  <Autor>...</Autor>
  <Beschreibung>...</Beschreibung>
</Buch>
</root>