#!/usr/bin/perl
use strict;
use warnings;
use JSON;

my %query  = ();
while (<DATA>) {
  chomp;
  next unless /\S/; # skip blank lines
  my ($s1,$n,$s2,$v2,undef) = split ';',$_,5;
  
  if ($s1 eq 'Query') {
    if (exists $query{$n}){
      # print and reuse
      output($n);  
    }
    $query{$n} = [$v2];
    
  } elsif ($s1 eq 'Answer') {
    push @{$query{$n}},$v2;
  }
}

# remaining
output($_) for keys %query;

sub output {
 my $n = shift;
 my $host = shift @{$query{$n}};
 print encode_json { id=>$n,host=>$host,ip => $query{$n} };
 print "\n";
}