LINE:
for my $line ( split "\n", $dns_data ) {
    next LINE unless index $line, 'has address';
    my ($ipnum) = ($msg =~ m{([\d\.]+));