$n = 1;
s/((??{$n+1})\))(?{$n++})/\n$1/g;

##</code><code>##

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