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