do { 
      print "Question (Y/N)? ";
      chomp($_ = <>);
   } until /^[YN]$/i;