Select Code to Download

# TODO - prototype code only!
my @num2word = qw{zero one two ... twenty};
...
say q{I have }, $num2word[$apple_count], q{ apples.};

#!perl

...
    # Recurse with remaining digits
    return _get_triplets([@$ra_digits], $level + 1, [$string, @$ra_tex
+t]);
}

$ perl -Mstrict -wE 'use Number::Spell; say spell_number(100010001001)
+'
one hundred billion ten million one thousand one
...

$ perl -Mstrict -wE 'use Util::Number; say conv_num_to_text(1000100010
+01)'
one hundred billion, ten million, one thousand and one