Select Code to Download

$ perl -MO=Deparse
$f= grep {/f/} @array ? 1 : 2;
<EOF>
$f = grep({/f/;} @array ? 1 : 2);

    left        terms and list operators (leftward)
    [...]
    right       ?:
...

        open HANDLE, "filename"
            or die "Can't open: $!\n";