my ($extracted_value) = $extract =~/^\( (\d.+) \)$/;
# Will be undef if nothing found.