decode 'UTF-8',                # Your terminal
    encode 'UTF-8',            # binmode
        decode 'iso-latin-1',  # Perl reading the source. \ MISMATCH
            encode 'UTF-8',    # Your editor              /
                "Çirçös"

##</code><code>##

decode 'UTF-8',                # Your terminal
    encode 'UTF-8',            # binmode
        decode 'UTF-8',        # Perl reading the source
            encode 'UTF-8',    # Your editor
                "Çirçös"

##</code><code>##

#!/usr/bin/perl
use utf8;
use open ':std', ':locale';
print "Çirçös\n";