while ($flag == 0 ){  
	if ($str =~ m/\)/ ) { 
	$flag = 1; }
	else{
	 
	 my @array=split(/' '/,$str);
	if(defined $array[0] ){	$array[0] =~ s/[^0-9]//g}else{$array[0]=''};
	if(defined $array[1] ){	$array[1] =~ s/[^0-9]//g}else{$array[1]=''};
	 }   
 }