sub func
{
 my ($value) = @_ ; 
 if($value =~ /\'/)
 {
   	if($value[$i] = 0; $value[$i] <= length($value); $value[$i]++)
        {
	        if($value =~ s/\'//);
	}
	$value = "'".$value."'";
  } 
}