#!/usr/bin/env perl

use strict;
use warnings;
use Encode;

binmode STDOUT, ":utf8";

my $string = qq(Queensr˙che);

print qq($string\n);

Encode::is_utf8($string)? print " - is utf8\n" : print " - is not utf8\n";

use utf8;
$string = qq(Queensr˙che);
no utf8;

print qq($string\n);

Encode::is_utf8($string)? print " - is utf8\n" : print " - is not utf8\n";