$ 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