#!/usr/bin/ruby
names = []

STDIN.each_line do |line|
  path = line.strip
  begin
    File.open(path, "r") do |file|
      file.each_line do |fline|
        fline.strip.scan(/\w{40,}/) do |name|
          names << [name, path]
        end
      end
    end
  rescue Exception
    # ignore
  end
end

names.sort_by { |n| n.first.length }.reverse.each do |name, path|
  puts "#{name.length}\t#{name}\t\t#{path}"
end