Select Code to Download

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