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

   $html =~ s/&/&/gixs;
   #print $html;
   #exit;
   

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

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

        
        print "title: $title\n";

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

        # clean up after ourselves.
        undef($description);
        undef($url);
        undef($title);
    }

    return @rValue;
}

1;