Help for this page

Select Code to Download

Select or download this

sub get_YNRQ {
    while (1) {
...
            if $ans =~ m/[YNRQ]/;
    }
}