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