add

   1 #!/usr/local/bin/perl
   2
   3 while(@ARGV) {
   4   $name = shift;
   5
   6   open(A, $name) || die "cannot open $name: $!\n";
   7   while(<A>) {
   8     next unless /^0x([0-9A-Fa-f]{4})\s/;
   9     next if $set{$1};
  10     $set{$1} = 1;
  11     print;
  12   }
  13   close(A);
  14 }