$_ = "111(22(33)44)55";
1 while s/ \( [^()]* \) //gx;
if (/[()]/) {
  print "unbalanced!!";
} else {
  print;
}