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/;
my $ports  = qr/^(6553[0-5]|655[0-2][0-9]|65[0-4][0-9]{2}|6[0-4][0-9]{3}|[0-5]?[0-9]{4}|[0-9]{2,4}|[1-9])\z/;