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