summaryrefslogtreecommitdiff
path: root/word-aligner/ortho-norm/rw.pl
blob: 4cb0e8e7231ff22b653bfc1e422991216aeecdcb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict;
use utf8;

binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");

while(<STDIN>) {
  $_ = lc $_;
  s/([a-z])'( |$)/$1$2/g;
  print;
}