#!/usr/bin/perl

use strict;
no warnings 'utf8';
use utf8;
use POSIX;
use locale;

print setlocale(LC_CTYPE(), 'et_EE.UTF-8'), "\n\n";

my(@real) = ('R', 'S', 'Š', 'Z');
my(@fake) = ('R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');

print "@real\n", "@fake\n";