Thanks for you help guys.. here is the code, that I found somewhere online.

use Lingua::EN::Numbers;
use strict;

my($numberObject);


$numberObject = Lingua::EN::Numbers->new;

$numberObject->parse(1234);

print $numberObject->get_string . "\n";
[download]