The Code 

• ugly html

foreach my $title_node ( $dom->findnodes(q{//div[@class='awardslisting']/p[@class='title']}) ) {

        # get the related nodes
        my $author_node = $title_node->nextNonBlankSibling();
        my $top_node    = $title_node->parentNode->parentNode->parentNode->previousNonBlankSibling()->previousNonBlankSibling()->firstChild;
        my $color_node  = $title_node->parentNode->parentNode->parentNode->parentNode->parentNode;

        # get the node contents
        my $title  = $title_node->textContent;
        next if $title eq '';
        my $top    = $top_node->textContent;
        my $author = $author_node->textContent;
        my $color  = $color_node->getAttribute('bgcolor');

        $books->{$title}{count}++;
        $books->{$title}{author} = $author;
    }