my @ipconsole = ($ip =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)  or  $exit = 1;
  $exit = 1  if grep $_ > 255, @ipconsole;