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

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

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

        $title =~ s/<\!\[CDATA\[//gsi;
        $title =~ s/\]\]\>//gsi;
        $description =~ s/<\!\[CDATA\[//gsi;
        $description =~ s/\]\]\>//gsi;

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

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

    return @rValue;
}

1;