sub scienceWireHandler
{
    $html = shift;
    my( @rValue ) = ();
    my( $line ) = ();
    my( $done ) = 0;
    my( @targets ) = ();
    my( $target );
    my( $contentLine ) = "";
    my( $metaTarget );

    my @lines = split /\n/, $html;
    @lines = reverse @lines;

    while( ! $done )
    {
	$line = pop @lines;
	if( $line =~ /In today\'s stories\:/ )
	{
	    #print "Found headline list\n";
	    while( $line =~ s/LI\>(.*?)\<//si )
	    {
		$target = $1;
		$target =~ s/\<.+?\>//gs;
		$target =~ s/^\s*//gs;
		$target =~ s/\s*$//gs;
		$target =~ s/\.*$//gs;
#	  print "Target =>$target<=\n";
		push @targets, $target;		
	    }

	    $done = 1;
	    # Chuck away a garbage line ...
	    pop @lines;
	}	
    }

    $done = 0;
    while( ! $done )
    {
        $line = pop @lines;
	
        if( $line =~ /\<\!\-\- \*\*\*\<br clear\=\"all\"\>\*\*\* \-\-\>/ )
        {
            $done = 1;
        }
        else
        {
            $contentLine .= $line;
        }
    }

#    print "PhaseII ..............................";
#    print "\n\nContent: \n\n$contentLine\n\n";

    @targets = reverse @targets;

    while( $target = pop @targets )
    {
	$metaTarget = quotemeta($target);
#  print "Searching for ==>$metaTarget<==\n";

	if( $contentLine =~ /\<b\>$metaTarget\<\/b\>(.*?)\<P\>/si )
#	if( $contentLine =~ /($metaTarget)/si )
	{
#	    print "Target Found: ... $1\n";
	    push @rValue, { 'title' => $target,
			    'desc' => $1 };
	
	}
    }   

    return @rValue;
};

return 1;
