rendered paste body {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}]} **