Select Code to Download

my $str = "05/04/2010 13:09:45 - A - somebody - ( ( my.my id >= 1 ) an
+d ( is-mother.to code intersects afunc(val1,val2,val3,val4) and ( is-
+father.to code  intersects bfunc(val1,val2,val3,val4) )";

my $str = "05/04/2010 13:09:45 - A - somebody - ( is-mother.to code in
+tersects afunc(val1,val2,val3,val4) )";

...
          ]
        ];
String is balanced.

Result should be

...
is-mother.to code intersects afunc(val1,val2,val3,val4)
is-father.to code intersects bfunc(val1,val2,val3,val4)