{ok,Data} = file:read_file("big.txt").
  List = binary_to_list(Data).
  {ok, Matches} = regexp:split(http_util:to_lower(List),"[a-z]+", " ").



%%errros with:

=ERROR REPORT==== 26-Apr-2007::16:24:48 ===
Error in process <0.34.0> with exit value: {undef,[{shell_default,length,[5,[239,187,191,84,104,101,32,80,114,111,106,101,99,116,32,71,117,116,101,110,98,101,114,103,32,69,66,111,111,107,32,111,102,32,84,104,101,32,65,100,118,101,110,116,117,114,101,115,32,111,102,32,83,104,101,114,108,111,99,107,32,72,111,108,109,101,115,10,98,121,32,83,105,114,32,65,114,116,104,117,114,32,67,111,110,97,110,32,68,111,121,108,101,10,40,35,49,53,32,105,110,32,111,117,114,32,115,101,114,105,101,115,32,98,121,32,83,105,114,32,65,114,116,104,117,114,32,67,111,110,97,110,32,68,111,121,108,101,41,10,10,67,111,112,121,114,105,103,104,116,32,108,97,119,115,32,97,114,101,32,99,104,97,110,103,105,110... 

** exited: {undef,[{shell_default,length,
                                  [5,
                                   [239,
                                    187,
                                    191,
                                    84,
                                    104,
                                    101,
                                    32,
                                    80,
                                    114,
                                    111,
                                    106,
                                    101,
                                    99,
                                    116,
                                    32,
                                    71,
                                    117,
                                    116,
                                    101,
                                    110|...]]},
                   {erl_eval,do_apply,5},
                   {shell,exprs,6},
                   {shell,eval_loop,3}]} **