perl正则识别英文文本中表示数字的内容

例如：I have two apple and one hundred pears,把其中的“two”和“one hundred”识别出来

只能自己做一个数字单词库，然后匹配