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