$hh="1)foo2)bar3)blabla";
@nn=split /\d\)/, $hh;
print join ':', @nn;
print "\n";