>perl -MO=Deparse,-p -e"grep /\Q$choice\E/, @REPORT && do { last READ_LOOP; };"
grep(/\Q$choice\E/, (@REPORT && do {
    last READ_LOOP
}));
-e syntax OK