Yes, but when else am I going to use poor old "do/while?" :)

I admit, the bare block does look better:

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