$blah1 = ( split /\(/, $lines[$x] )[1];