in reply to Re^3: reprompt user input, until validation pass
in thread reprompt user input, until validation pass

replace
-- if($ip_no =~ /\D/ || $ip_no=~ //) ++ if($ip_no =~ /\D/)