use Lingua::EN::Numbers qw(num2en num2en_ordinal);
  if(isdigit (\w)
    s/(\w)/num2en(\w)/g;

##</code><code>##

Unquoted string "w" may clash with future reserved word at tocorpus.pl line 21.
syntax error at tocorpus.pl line 22, near ")
    s/(\w)/num2en(\w)/g"
Execution of tocorpus.pl aborted due to compilation errors