Help for this page
while ($input =~ /^yes$/ or $input =~ /^no$/);
while ($input !~ /^yes$/ or $input !~ /^no$/);