remove

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