use strict;
use warnings;

# This Perl script is Unicode UTF-8
use utf8;

# Proper Unicode collation
use Unicode::Collate;

# The output of this Perl script is Unicode UTF-8
binmode STDOUT, ':encoding(UTF-8)';

my $fancy = 'Queensr˙che';
my $plain = 'Queensryche';

my $collator = Unicode::Collate->new(
    level         => 1,
    normalization => undef,
);

# This prints "Queensr˙che and Queensryche are the same word."
printf "$fancy and $plain %s the same word.\n",
    $collator->eq($fancy, $plain) ? "are" : "aren't";

exit 0;