my $Tree  = HTML::TreeBuilder->new();
$Tree->parse_content($html);

my @nodes   = $Tree->elementify();
my @content = $nodes[0]->content_list();

foreach my $elem (@content) {
  $data->{$elem->tag()} = $elem;
}

foreach my $elem ($data->{'body'}->content_list()) {
  if (!$elem->is_empty)) {
    my @list = $elem->content_refs_list(), "\n";
    my $tag = $elem->tag();

    if (ref($list[0]) eq 'SCALAR') {
      $elem->as_text());
    } else {
      #HIER MUESSTE ICH WEITER ABSTEIGEN KOENNEN, ODER?
    }
  }
}

$Tree->delete;