use zUtil;

sub npr_rss
{
   $html = shift;
   my( @rValue ) = ();
   my ( $title, $url );

   $html =~ s/&/&/gixs;

   while( $html =~ s/<item>.*?<title>(.*?)<\/title>.*?<link>(.*?)<\/link>.*?<\/item>//six )
   {
       $title = $1;
       $url = $2;

       # Clean CDATA and entities
       $title =~ s/<!\[CDATA\[//gsi;
       $title =~ s/\]\]>//gsi;
       $title =~ s/&apos;/'/g;

       next if $title =~ /^\s*$/;

       push @rValue, {
           'headline' => $title,
           'url'      => $url,
       };

       undef($url);
       undef($title);
   }

   return @rValue;
}

1;