$line = <FILE>;
@split1 = split(/;/, $record);
@split2 = split(/,/, @split1[0]);
@split3 = split(/\(/, @split2[0]);
@split4 = split(/\)/, @split2[1]);
$test1 = @split3[1];
$test2 = @split4[0];