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

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

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

        $title=~s/<\!\[CDATA\[//gsi;
        $title=~s/\]\]\>//gsi;
        # special pull of the year
        $title=~s/^(\d*).*/$1/;
        $description=~s/<\!\[CDATA\[//gsi;
        $description=~s/\]\]\>//gsi;
        $description =~ s/&lt;.*?&gt;//gsix;
        
        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;


#   $html = shift;
#    my( @rValue ) = ();
#    my( $headline, $page, $date, $day, $blurb );

#    # condition the text so it's easier to parse
#    if( $html =~ /^.*?<!-- BODY BEGIN -->(.*)<!-- BODY END -->/gsi )
#    {
#        $html = $1;
#    }

#    while( $html =~ s/
#       <p>.*?<strong>
#          <a\ href=\"(.*?)\".*?>(.*?)<\/a><\/strong> # url, headline
#           .*?
#           <a.*?>(.*?)<\/a><\/strong>                # 
#           .*?                                       # noise
#           <span\ class="date">\(                    # more noise
#              (.*?)\)<\/span>                        # date
#           (.*?)                                     # blurb
#           <a\ href="(.*?)"                          # 
#        .*?<\/p>//six )
#    {

#       $date = $3;
#       $url = $1;
#       $headline = $2;
#       $blurb = $4;

#       push @rValue,
#       {
#          'date' => $date,
#          'url' => $url,
#          'headline' => $headline,
#          'blurb' => $blurb
#       };

#    }
#    return @rValue;
}

return 1;