my ($ipnum) = ($msg =~ m{has address ([\d\.]+)});