$a="a(b)cd(e)f";
print "\n", substr $a, 0,5,'' until $a eq '';