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