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

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

    while( $html =~ s/
       <item>.*?                                                      
         <title>(.*?)<\/title>.*?
         <link>(.*?)<\/link>.*?
         <description>(.*?)<\/description>.*?
         <category>(.*?)<\/category>.*?
         <pubDate>(.*?)<\/pubDate>.*?
         <enclosure.*?>(.*?)
       <\/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);
    }

#   exit;

    return @rValue;
}

1;