my ($value) = $var =~ /\(([0-9]+\.[0-9]+)\),[0-9]+$/;