#!/usr/local/bin/perl

while(@ARGV) {
  $name = shift;

  open(A, $name) || die "cannot open $name: $!\n";
  while(<A>) {
    next unless /^0x([0-9A-Fa-f]{4})\s/;
    next if $set{$1};
    $set{$1} = 1;
    print;
  }
  close(A);
}