my $op;
do { ... } until ($op =~/Q/i);