$text = reverse $copy;
$text =~
s/
    (?<= \) )
    (\d+)
    (?= [^()]* \) )
/$1\n/gx;
$text = reverse $text;