$fpcr = grep { /fpcr/ } @array ? 1 : 2;

##</code><code>##

 
$fpcr = (scalar grep { /fpcr/ } @array) ? 1 : 2;

##</code><code>##

 
grep { /fpcr/ } @array