summaryrefslogtreecommitdiff
path: root/corpus/lowercase.pl
blob: 688e493b5db65af9a2be9f9c38a18eae2f5af2d6 (plain)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
use strict;
binmode(STDIN,":utf8");
binmode(STDOUT,":utf8");
while(<>) {
  $_ = lc $_;
  print;
}