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