while ($input =~ /^yes$/ or $input =~ /^no$/);