#!/usr/bin/perl -l

use strict;
use warnings;

my ($char_list) = "Enter Iago, Othello, and  others";

my (@words) = split( /\W/, $char_list, 0 );
foreach my $word (@words) {
    if ( $word =~ m/[F-Z]\w+/g ) {
        push my (@entering_chars), $word;
        print "@entering_chars";
    }
}