#!/usr/bin/perl use Lingua::EN::Numericalize; print str2nbr('First, Second, Third, Twentythird');