word-aligner/ortho-norm/mg.pl


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;
}