use Lingua::EN::Inflect;

$zahl = "[asd]";
my $text = Lingua::EN::Inflect::NUMWORDS($zahl);

print $text;
