$n = 2; ++$n while s/$n(?=\))/\n$n/