#!/usr/bin/perl

use strict;
use locale;
use POSIX;

print setlocale( LC_CTYPE ), "\n\n";;

my @real = qw(R S Š Z);
my @fake = 'R'..'Z';
print "@real\n";
print "@fake\n";

__END__

et_EE.UTF-8

R S Š Z
R S T U V W X Y Z