$/ = 'next'; # read by chunks
/edit "(\S+)".*set ip (\S+)/s and $ips{$1} = $2 while <DATA>;