my $str = "az(se)(dc(fr(lo)))(km(ji)(hn))(()aaa(()())(ff(dd)aa))";
my @arr = $str =~ /\(((?:[^()]++|\((?1)\))*+)\)/g;
bXkgJHN0ciA9ICJheihzZSkoZGMoZnIobG8pKSkoa20oamkpKGhuKSkoKClhYWEoKCkoKSkoZmYoZGQpYWEpKSI7Cm15IEBhcnIgPSAkc3RyID1+IC9cKCgoPzpbXigpXSsrfFwoKD8xKVwpKSorKVwpL2c7CnByaW50IGpvaW4oIlxuIiwgQGFycik=