my $char_list = "Enter Iago, Othello, and  others";
my @Word_List =  grep { /[A-Z]\w+/ } split(/\W/, $char_list);
print "@Word_List\n";