@words = 'Enter Iago, Othello, and  others' =~ m[(\b[A-Z]\w+\b)]g;;

print @words;;
Enter Iago Othello