($test1,$test2)= $split1[0]=~/\(\s*(\d+),\s*(\d+)/;