>perl -wMstrict -le
"my @strs = qw( ab cd ef gh );
 my @rxs  = map qr{ \Q$_\E }xms, @strs;
 my $line = 'xxabyyefzzghhh';
 my $cnt  = grep $line =~ $_, @rxs;
 print $cnt;
"
3