#!/usr/bin/perl

use strict;
use Encode;
use Text::Unaccent::PurePerl;

binmode STDOUT, ":utf8"; 

use utf8;
my $string = "Queensr˙che";
no utf8;

chars($string);

(Encode::is_utf8($string))? print "this is utf8\n" : print "this is NOT utf8\n";

print "$string\n";

print "unaccented: " . Text::Unaccent::PurePerl::unac_string($string) . "\n";

exit;

sub chars {

        my $k = shift;

        my @chars = split("",$k);

        foreach (@chars) {

                my $dec = ord($_);
                my $chr = chr(ord($_));
                my $q = qquote($_);

                print "\t$dec\t$chr\t$q\n";
        }
}


sub qquote {

        local($_) = shift;

        s/([\\\"\@\$])/\\$1/g;

        my $bytes; { use bytes; $bytes = length }

        s/([[:^ascii:]])/'\x{'.sprintf("%x",ord($1)).'}'/ge if $bytes > length;

        return $_;