my $octet = qr/\d{1,2}|[01]\d{2}|2[0-4]\d|25[0-5]/;

##</code><code>##

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

##</code><code>##

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