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