Help for this page

Select Code to Download


  1. or download this
    grep /\Q$choice\E/, @REPORT && do {
    last READ_LOOP;
};
  2. or download this
    grep(/\Q$choice\E/, @REPORT) && do {
    last READ_LOOP;
};
  3. or download this
    user@unforgiven:~$ perl -MO=Deparse -e 'grep /\Q$choice\E/, @REPORT &&
+ do {
    last READ_LOOP;
...
    last READ_LOOP;
}
-e syntax OK