perl -ne 's/^\s*//; if (/^<[^!]/) { s, .*?(/?>)$,$1,; print; }' |
sort | uniq -c