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