#!/usr/bin/env perl -l

use strict;
use warnings;

my %tags;

while (<>) {
    ++$tags{$1} while /<(?!\/)([^ >]+)/g;
}

print "$_\t$tags{$_}" for sort { $tags{$b} <=> $tags{$a} } keys %tags;