my $ip = qr/^$octet\.$octet\.$octet\.$octet$/;