perl regexp with sas - exact match one or the other - regex

Question

I need to extract numbers written in words or in figures in a text.
I have a table that looks like that,
... 1 child ...
... three children ...
...four children ...
...2 children...
...five children
I want capture a number written in words or in numeric figures. There is one number per line. So the desired output would be:
1
three
four
2
five
My regex looks like that:
prxparse("/one|two|three|four|five|six|seven|eight|nine|ten|eleven|twelve|thirteen|child|\d\d?/")
Any help ?

Answer 1

Description
This regex will match the numbers in the string providing the numbers are surrounded by whitespace or the symbols.
(?<=\s|^)(?:[0-9]+|one|two|three|four|five|six|seven|eight|nine|ten)(?=\s|$)
Live Example: http://www.rubular.com/r/6ua7fTb8IS
To include the spelled out word version of numbers outside of one - ten, you'll need to include those. This regex will capture the numbers from zero to one hundred [baring any typos]
(?<=\s|^)(?:[0-9]+|(?:(?:twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety)\s)?(?:one(?:[\s-]hundred)?|two|three|four|five|six|seven|eight|nine)|ten|eleven|twelve|(?:thir|four|fif|six|seven|eight|nine)teen|twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety|zero)(?=\s|$)
Live Example: http://www.rubular.com/r/EIa18nx731
Perl Example
$string = <<END;
... 1 child ...
... three children ...
... four children ...
... 2 children...
... five children
END
#matches = $string =~ m/(?<=\s|^)[0-9]+|one|two|three|four|five|six|seven|eight|nine|ten(?=\s|$)/gi;
print join("\n", #matches);
Yields
1
three
four
2
five