Perl将字符串转换为数字

我想在perl中将字符串序号转换为数字 我已经找过了，但没有得到确切的答案

示例：如果输入为

one it should be 1.
five hundred it should be 500.
three hundred it should be 300.

---

有什么模块可以做到这一点吗？

Perl最好的部分之一是CPAN，当然，在模块上花上几分钟就可以看到：

---

Perl最好的部分之一是CPAN，可以肯定的是，在模块上花上几分钟就可以看到：

---

非常感谢，戴夫，它很好用。我想知道“Ninten”是否真的有用！150亿、600万和Ninten

15006000019

@Borodin-我的答案的原始版本包括一条评论，他可能需要修正“hundared”的拼写才能生效。然后我在文档中看到“各种数字的拼写错误都被理解了。”非常感谢Dave，它工作得很好。我想知道“Ninten”是否真的有效！150亿、600万和Ninten

15006000019

@Borodin-我的答案的原始版本包括一条评论，他可能需要修正“hundared”的拼写才能生效。然后我在文档中看到“各种数字拼写错误都被理解了。”

use Lingua::EN::Words2Nums;
$num=words2nums("two thousand and one");
$num=words2nums("twenty-second");
$num=words2nums("15 billion, 6 million, and ninteen");