my @strings = make_10_strings();
for (@strings) {
  for my $p ('x+', 'yz?y', 'xz+y') {
    if ($_ =~ $p) { handle($_) }
  }
}