1 while s/\(([^\(\)]+)\)((?:\d+)?)/ $1 x ($2 || 1) /ge;