Select Code to Download

$ 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

$ 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 26 years and 0 month old
I am 6 years and 10 month old
I am 17 years and 0 month old