I like using pyx (installed by XML::PYX) for that kind of quick "grab info from a file":

pyx file.xml | perl -ln -e'if( /^\((.*)$/) { $tags{$1}++; } \
                             END { print foreach (sort keys %tags);\
                                   print scalar(keys %tags), " tags in
+ the files"; }'
[download]