my (undef,$one,$two) = split /[()]/, $line;