sub func
{
 my ($value) = @_ ; 
 if($value =~ s/\'//)
 {   	
   $value = "'".$value."'";
 } 
}