#!/usr/local/bin/perl
local $_="woaaa (nested (parens))";
while (s/\([^()]*\)//){
   print "$_\n";
}
__OUTPUT__
ouu (nested )
ouu