in reply to Any other options for total count

Shortest doesn't always equal "better".

Anyway, here's some shorter code:

print+(()=/<bul-list>/g).(()=/<\/bul-list>/g);
Perl --((8:>*