my @vowel_caps = grep { /^[A-Z]/ } grep { /^[aAeEiIoOuU]/ } 
                                      qw( This is for Edna );