#!/usr/bin/perl -w
use strict;
# charset=cp-1251

my $t='Мачак у смеђим чизмама ноћу џипа љуту шашу.';

my @c=qw/А Б Ц Д Е Ф Г Х И Ј К Л М Н О П Р С Т У В З а б ц д е ф г х и ј к л м н о п р с т у в з Љ Њ Ж Ш Ђ Џ Ч Ћ љ њ ж ш ђ џ ч ћ/;
my @l=qw/A B C D E F G H I J K L M N O P R S T U V Z a b c d e f g h i j k l m n o p r s t u v z LJ NJ Z S DJ DZ C C lj nj z s dj dz c c/;
my $a;my $s;my %p;my $d=length($t);

for(0..255){$p{$_}=0}
for(0..59){$p{ord($c[$_])}=$l[$_]}
for(0..$d){$a=substr($t,$_,1);$s=$p{ord($a)};$s=$a unless $s;print $s}
print"\n";

=head1
print $p{ord('ђ')};
=cut
