my $vowels = qr/[aeiou]/;
my $odds = qr/[13579]/;
my $odd_or_vowel = qr/$vowels|$odds/;