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

##</code><code>##

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