$str = '
PA Group (N <26> 23)COM Group (N <26> 24)
Gender<124>2 test <26> 0.216, df <26> 1, P <26> 0.642
Male (%)14(60.9)13(54.2)
Female (%)9(39.1)11(45.8)
Ethnicity<124>2 test <26> 24.99, df <26> 4, P <178> 0.001
African American (%)5(21.7)2(8.3)
European American (%)5(21.7)17(70.8)
Asian American (%)04(16.7)
Hispanic American (%)01(4.2)
Other (%)9(39.1)0
Age, yr (SD)46.05(6.13)30.35(10.85)t <26> 5.94, P <178> 0.001
Education, yr (SD)11.37(2.31)15.85(1.75)t <26> 7.41, P <178> 0.001
Pain Threshold, <28>C (SD)48.75(2.44)47.33(3.24)
+U* <26> 158.0, P <26> 0.012
Males (SD) <26> 47.77 (3.35)†
Females (SD) <26> 48.26 (2.36)†
U‡ <26> 244, P <26> 0.582';
$str = qr{$str};
while ($str =~ m|(()([^\n]*))|g){
push (@cells, $1)
}
print @cells;