Help for this page
while ( <FH> ) { my ( $part1, $junk ) = split /#/; my ( $junk2, $ipaddr ) = split / /, $part1;
client 127.0.0.1#47560: query: host.example.com IN AAAA +
print @(split /#/)[1];