#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use utf8;

use open OUT => ':utf8', ':std';
use Encode;


my @strings = ("\N{LATIN SMALL LETTER C WITH CARON}",
              "c",
              "\N{LATIN SMALL LETTER C WITH CEDILLA}",
              "\N{LATIN SMALL LETTER C WITH ACUTE}");

push @strings, map encode('utf-8', $_), @strings;

printf "%10s %u\n", $_, utf8::is_utf8( $_ ) for sort @strings;

__END__
C:\test>\perl22\bin\perl.exe junk33.pl
         c 0
         c 0
        ç 0

        �? 0

        č 0

         � 1

         c 1

         c 1