sub updatesFilter
{
    $html = shift;

    my( @rValue ) = ();

    while( $html =~ s/(\w+)\s*?\{(.*?)\}//s )
    {
	$entry = $1;
	$date = $2;
	
	if( $html =~ s/(\w+)\s*?\{(.*?)\}//s )
	{
	    $entry = $1;
	    $story = $2;

	    if( $entry =~ /story/i )
	    {						
		push @rValue, 
	        { 
		    'Date' => $date,
		    'Story' => $story,
          'number' => 10
		};
	    }
	}
    }       

    return @rValue;
}

return 1;

