sub scienceAGoGoHandler
{

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

   #print "---$html---\n";
   #exit(1);

   while( $html =~ s/<br><font.*?>(.*?)\n<br><b><font.*?><a.*?href=\"?(.*?)\"?>(.*?)<\/a>.*?<br><font.*?>(.*?)<\/font>//si )
   {

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

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

   }
   return @rValue;
}

return 1;

