use zUtil; sub weatherFactHandler { $html = shift; my( @rValue ) = (); my( $table, $row, $value, $day ); my( $done ); print "------------------ weatherFactHandler --------------------\n"; print "$html\n\n\n"; if( $html =~ /Today.*?s Weather Fact.*?<\/h2><\/div>.*?