$s = "(abcd')'1234)";
$s =~ m/(\(.*?(?<!\')\))/;
print $1;