file: http://www.itunes.com/dtds/podcast-1.0.dtd doc: http://www.itunes.com/DTDs/Podcast-1.0.dtd #### #!/usr/bin/perl use warnings; use strict; use feature qw{ say }; use XML::RSS::Parser; my $p = XML::RSS::Parser->new; $p->register_ns_prefix('lc_itunes', 'http://www.itunes.com/dtds/podcast-1.0.dtd'); my $feed = $p->parse_file(*DATA); for my $item ($feed->query('//item')) { say $item->query('lc_itunes:summary')->text_content; } __DATA__ Title file:/// cs_CZ 5460304c-e284-4f84-b4a3-2cccba31fb81 ...