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