#!/usr/bin/perl -l

use warnings;
use strict;
use Encode qw(encode_utf8);

$| = 1;

binmode STDIN, ":encoding(UTF-8)";

my $str = 'Çirçös';
$str = encode_utf8($str);
print "$str";

my $str1 = 'Çirçös—'; 
$str1 = encode_utf8($str1);

binmode STDOUT, ":encoding(UTF-8)";
print "$str1";