do {
  print "\nDid I guess your animal?\n\n";
} while ($answer=<STDIN>) !~ /^[YN]/i;

## OR

do {
  print "\nDo you want to <P>lay again or <Q>uit?\n\n";
} while ($answer=<STDIN>) !~ /^[PQ]/i;