>perl -wMstrict -le
"my @ra = qw(a b c d e f);
 my $n = grep /[bcd]/, @ra;
 print qq{b or c or d: $n};
"
b or c or d: 3