sub validateMask {
  $_ = shift;
  return unless /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/;
  unpack('B32', pack('C4', split /\./)) =~ /01/ ? undef : 1;
}