knoppix@Microknoppix:~$ perl -E '
> $str = q{abc1)def2)g(h)i3)jkl};
> say for split m{(?<=\d)\)}, $str;'
abc1
def2
g(h)i3
jkl
knoppix@Microknoppix:~$