teste.rb

module RIndexer
  RE_TAG = %r!<([a-z\d_-]+)\s*.*?>!im

  def fetch_tags(doc_stream)
    tags = Hash.new(0)
    doc_stream.scan(RE_TAG).each do |e|
      tags[e] += 1
    end
    tags
  end
end

include RIndexer

arg = ARGV.shift
fetch_tags(IO.read(arg)).sort {|a,b| b[1] <=> a[1]}.each {|e| puts "#{e[0]} => #{e[1]}"}

#USAGE: ruby teste.rb document.xml (or html, etc)