my $octet   = q/(?: 25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})/;
my $ipaddr  = qr/^$octet\.$octet\.$octet\.$octet\z/x;