I need a short perl code for my invoice printing software. This code takes the number as input, print out the text equivalent of the number. eg. input: 1.125 --> output: one thousand on hundred twenty five. Working code for en is attached. This needs to be adapted to Turkish number texts. Base number texts for tr are given in code-en.pm.
The only differences:
en: one thousand --> tr: thousand (no one)
en: one hundred --> tr:hundred (no one)