word-aligner/ortho-norm/cz.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl -w
use strict;
use utf8;

while(<STDIN>) {
  $_ = lc $_;
  s/ al-/ al/g;
  s/^al-/al/;
  s/j/i/g;
  s/dž/j/g;
  s/š/sh/g;
  s/á/a/g;
  s/č/ch/g;
  s/í/i/g;
  print;
}