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

##</code><code>##

        map { split /\W+/ }