$bullopen = 0;
    $bullclose = 0;

    while ($_=~s#<bul-list>##)
    {
        $bullopen++;
    }

    while ($_=~s#</bul-list>##)
    {
        $bullclose++;
    }

    print $bullopen;
    print $bullclose;