#!/usr/bin/perl

while (<STDIN>) {

$temp = $_;
$temp =~ s/\xBC/kt/g;
$temp =~ s/\xBD/kv/g;
$temp =~ s/\xBE/zv/g;
$temp =~ s/\xBF/KA/g;
$temp =~ s/\\code\(017d\)//g;
$temp =~ s/\\code\(017e\)//g;
$temp =~ s/\\code\(010c\)//g;
$temp =~ s/\\code\(010d\)//g;
$temp =~ s/\\code\(0106\)//g;
$temp =~ s/\\code\(0107\)//g;
$temp =~ s/\\code\(0160\)//g;
$temp =~ s/\\code\(1061\)//g; #izbaciti
$temp =~ s/\\code\(0161\)//g;
$temp =~ s/\\code\(0110\)//g;
$temp =~ s/\\code\(0111\)//g;
$temp =~ s/\x0110//g;
$temp =~ s/\x0111//g;
$temp =~ s/\x017D//g;
$temp =~ s/\x017E//g;

# malo "l" u veliko "I" na poetku rei na poetku reda
$temp =~ s/^l(d|g|m|z|s)/I$1/g;
# malo l iza razmaka je moda veliko "i"?
$temp =~ s/\ l([dgmzs])/ I$1/g; #1975, 3421

# iza jedne take ili zareza
$temp =~ s/(\.|\,|\?|\!){1}\ l/$1 I/g; #1196
# ako je "l" samo na poetku reda, onda je to veliko "I"
$temp =~ s/^l\ /I /g; #1125
# iza crtice malo "l" je veliko "i"
$temp =~ s/\-l\ /-I /g;

# pretvaranje malog "l" u veliko "I" ako je re pisana velikim slovom
# tako da "PARlS" postaje "PARIS"
$temp =~ s/([A-Z]+)l([A-Z]+)/$1I$2/g;

# Ij je lj
$temp =~ s/Ij/lj/g; #3421

# sastavljanje razdvojenih brojeva ("1 2" psotaje "12")
$temp =~ s/([0-9]{1})\ ([0-9]{1})/$1$2/g;
# ako je na poetku linije prazan string, ubaci crticu
$temp =~ s/^\ ([A-ZƮ]+)/-$1/g;

# "l." je uzvinik
$temp =~ s/l\./!/g;
# "?." je upitnik
$temp =~ s/\?\./?/g;
# nema razmaka ispred take, zareza, uzvinika i upitnika
$temp =~ s/\ (\.|\,|\!|\?)/$1/g;

# zarez bez razmaka iza a u rei je viak
$temp =~ s/([a-z]+)\,([a-z]+)/$1$2/g; #3409

# dva apostrofa u navodnik
$temp =~ s/\'\'/"/g;

# samo zarez u redu -> zanemari red
if ($temp !~ /^,$/) {print "$temp";}
}

exit;
# 1807 - treba "za 400 godina... -Da..."
