while (<DATA>) {
  chomp;

  # split the line from the wave characters
  my ($file, $line, $type, $rest) = split(/~/, $_, 4);

  # was this file found in the previous loop?
  if (defined $changes{$file}) {
    # was it a range?
    if (defined $changes{$file}->[1]) {
      # skip if this $line is not in this range
      next unless ($line gt $changes{$file}->[0] and $line lt $changes{$file}->[1]);
    } else {
      # skip if this $line is not equal to this single line number
      next unless $line eq $changes{$file}->[0];
    }

    # if we are here, then this is a match. so print it.
    print "$_\n";
  }
}