while ( <FH> ) {
        my ( $part1, $junk ) = split /#/;
        my ( $junk2, $ipaddr ) = split / /, $part1;

##</code><code>##

client 127.0.0.1#47560: query: host.example.com IN AAAA +

##</code><code>##

print @(split /#/)[1];