my $match = 1; foreach ($var_a, $var_b, $var_c) { next if /abcdefgh/; $match = 0; last; } if ($match) { ... } #### if ((grep /abcdefgh/, $var_a, $var_b, $var_c) == 3) { ... } #### use List::MoreUtils qw( all ); if (all { /abcdefgh/ } $var_a, $var_b, $var_c) { ... }
## if ((grep /abcdefgh/, $var_a, $var_b, $var_c) == 3) { ... } ##
## use List::MoreUtils qw( all ); if (all { /abcdefgh/ } $var_a, $var_b, $var_c) { ... }