# http://www.newscientist.com/feed.ns?index=online-news

sub newScientistHandler
{
   $html = shift;
   my( @rValue ) = ();
   my ( $headline, $url, $blurb, $date, $topic );

#   die $html;
#   print $html;
#   exit;

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

      print "head: $headline\n";
      print "url: $url\n";

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

   return @rValue;
}

return 1;
