my @words = 
        grep { /^[a-z]/i }
        map { split }
        <FILE>;