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