#!/usr/local/bin/perl

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

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