if ($ip2 =~ m/(\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3})/)