grep(/\Q$choice\E/, @REPORT)    # OK
   && last READ_LOOP;