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

##</code><code>##

hello Ron, welcome to Itn'l ariport

##</code><code>##

he'llo Ron, welco'me to Itn'l ariport

##</code><code>##

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