Select Code to Download

$ perl -MO=Deparse,-p
 use 5.010;
...
... yadda ...yadda ...

(apple() and (banana() || cherry()));