What have you tried and how did it fail for you?

For example, you could split on {, } and whitespace, and discard all empty elements.

$ perl -E '$_= "{31 0} {26 0} {6 10} {17 0}"; say "I am $1 years and $
+2 month old" while /\{(\d+)\s+(\d+)\}/g;' 
I am 31 years and 0 month old
I am 26 years and 0 month old
I am 6 years and 10 month old
I am 17 years and 0 month old
[download]

$ perl -E '$_= shift; say "I am $1 years and $2 month old" while /\{(\
+d+)\s+(\d+)\}/g;
' "{31 0} {26 0} {6 10} {17 0}"
I am 31 years and 0 month old
I am 26 years and 0 month old
I am 6 years and 10 month old
I am 17 years and 0 month old
[download]

split can do it's work using a regex so you can try a regex with group of chars to do the job. Consider this example (but notice a first empy element!):

#win quotation
perl -e "print join '|',split /[{}\s]+/,$ARGV[0]" "{31 0} {26 0} {6 10
+} {17 0}"
|31|0|26|0|6|10|17|0
[download]

Or a global silly substitution like:

perl -e "print map{s/\s?{/I am /g;s/(\d{1,3})\s/$1 years old and /g;s/
+(\d{1,3})}/$1 months old.\n/g;qq($_\n)}@ARGV" 
        "{31 0} {26 0} {6 10} {17 0}"

I am 31 years old and 0 months old.
I am 26 years old and 0 months old.
I am 6 years old and 10 months old.
I am 17 years old and 0 months old.
[download]

But it really depends on your needs and skill, what have you tried so far?

L*

Also have a look at the function extract_bracketed from the core module Text::Balanced.

++Anonymous, and it becomes frequent too!

Use the source Luke,
Know your own core Peaches..

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

I would have suggested Regexp::Common::balanced, but your module is even better.
Bill