use v5.12;
use warnings;
use Mojo::DOM;

my $data = join "", <DATA>;

my $dom = Mojo::DOM->new($data);

my $title = $dom->at('title')->text;
my $name  = $dom->at('name')->text;

say <<__HTML__;

<h3>$title</h3>
<b>$name</b>

<ul>
@{[
    entries()
]}
</ul>
__HTML__


sub entries {
    my @res;
    for my $entry ( $dom->find('entry')->each ) {

        my $title = $entry->at("title")->text;
        my $href  = $entry->at("link")->attr('href');
        my $desc  = $entry->at('media\:group > media\:description')->text;

        push @res, <<__HTML__;

    <li>[$href|$title]<p>
       $desc
    </li>
__HTML__
    }
    return @res;
}