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