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

##</code><code>##

if ($op =~/Q/i) {
print "Just hit enter to shuffle though all prompts\n";
    }

##</code><code>##

last if $op =~ /Q/i;