my $input = '';

until (($input =~ /^yes/i) or ($input =~ /^no/i)) {
  print "Please Enter Yes or No: \n";
  chomp($input = <>);
  printf "'%s' entered for system\n", $input;