#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;
use XML::RSS;
use XML::Simple;

my $RSS_URL = 'http://perlmonks.org/headlines.rdf';

my $original_rss = XML::RSS->new;
   $original_rss->parse( get($RSS_URL) );

my $expanded_rss = XML::RSS->new;
   $expanded_rss->channel( %{ $original_rss->channel } );

foreach my $item ( @{ $original_rss->items } ) {
   my $node = XMLin( get($item->{'link'} . '&displaytype=xml') );

   $expanded_rss->add_item(
      %{ $item },
      description => substr( $node->{'data'}->{'field'}->{'content'}, 0, 200 ),
   );
}

print $expanded_rss->as_string;