oops that should be
while (not ($_ =~ m/\(//)) { # match the first parenthesis
and not:
while (not ($_ =~ m/)//)) {  # match last parenthesis

My apologies,

Dan

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to