$teststr="blah,blah(blah,blah(blah,blah(blah))),blah";

if ($teststr =~ /^(\w*),(.*?),(\w*)$/) {
    print "1: $1\n2: $2\n3: $3\n";
}