@searchstrings = qw( cat dog );

if ( scalar grep { $str =~ $_ } @searchstrings == 
     scalar @searchstrings ) {
   print "Found them all!\n";
}