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