use strict;
use warnings;
use utf8;
use Test::More tests=>1;



my $string = "wjzw’xl cowuxze.";
my $required = "wjzw\N{APOSTROPHE}xl cowuxze.";     #"wjzw'xl cowuxze.";

$string =~ s/\N{RIGHT SINGLE QUOTATION MARK}/'/ ;


is( $string, $required, 'APOSTROPHE' );