oops that should be
while (not ($_ =~ m/\(//)) { # match the first parenthesis
and not:
while (not ($_ =~ m/)//)) { # match last parenthesisMy apologies, Dan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
