my $string = q/hi it's mine  test ' correct/;
print $string if $string =~ s#\'#is#g;