Select Code to Download

#!/usr/bin/perl

...

    print "Record $. has $prob:\n$_" if $prob;
}

# perl 1-liner to output one "tag" per line:

perl -pe 's{^.*?<}{}; s{>[^<]*}{>\n}g;' file.xml | sort | uniq -c