perl -n -e 'while(s/<([\w\d\:]+)//){$f{$1}++;}\
    END{print map "$_\n", sort keys %f;\
        print "There are ", scalar(keys %f), " tags in the files\n"} *.xml