sub cbcSportsHandler { $html = shift; $category = shift; my( @rValue ) = (); my( $title ); my( $link ); my( $desc ); my( $region ); my( $block ); print "===================== cbcSportsHandler ==================\n"; # print "Got: $html\n"; my $table = zUtil::getNthItemNew( 26, $html, "