my $address;
while (<IN_FILE>) {
  $address = hex $1 if m/address:([-[:xdigit:]]+)\s+/;
  next unless defined $address;
  if ($address & 1) { print OUT_FILE1 $_ }
  else { print OUT_FILE2 $_ }
}