use Lingua::EN::Numbers 'num2en'; print num2en(123456789), "\n";