if ($line !~ /^\(.*\)\s*$/) { print "here: $line\n"; return undef; }