my $line = 'client 127.0.0.1#47560: query: host.example.com IN AAAA +';
my ( $ip, $host ) = ( split /[ #]/, $line, 6 )[1,4];

print "IP: $ip, HOST: $host\n";