{ok,Data} = file:read_file("big.txt").
 List = binary_to_list(Data).
 {ok, String, _Rep} = regexp:gsub(http_util:to_lower(List),"[^a-z]"," ").
 NewList =  string:tokens(String, " ").