#!/usr/bin/perl

use XML::Feed;

use strict;
use warnings;

my $feed = XML::Feed->parse(\*DATA)
    or die XML::Feed->errstr;

print $feed->title, "\n";

for my $entry ($feed->entries) {
    print "T=", $entry->title, "\n";
    print "\tM=", $entry->modified||$entry->issued, "\n";
}

exit(0);

__DATA__

<rss xmlns:dc="http://purl.org/dc/elements/1.1/" version="2.0">
<channel>
<title><![CDATA[ foo bar one ]]></title>
<link>https://example.org/rss2.xml</link>
<description/>
<language>en</language>
<copyright>foo bar</copyright>
<ttl>120</ttl>
 <item>
<title><![CDATA[ Foo Bar Two ]]></title>
<link>https://www.example.org/</link>
<description><![CDATA[ <p align="center">
<span style="font-size: 0.75em;"> </span></p>
<p>words words words</p> ]]></description>
<pubDate>2019-09-10 13:38:00</pubDate>
<guid isPermaLink="false">https://example.org/</guid>
<dc:creator>foo bar three</dc:creator>
</item>
</channel>
</rss>