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

while(<STDIN>) {
  $_ = lc $_;
  s/ al-/ al/g;
  s/^al-/al/;
  print;
}