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

##</code><code>##

my $char_list = "Enter Iago, Othello, and  others";
my @Word_List;
@Word_List = ($char_list =~ /([A-Z]\w+)/g);
print "@Word_List\n";