my $ip = qr/^(?:$octet\.){3}$octet$/;