path: root/corpus/lowercase.pl

#!/usr/bin/perl -w
use strict;
binmode(STDIN,":utf8");
binmode(STDOUT,":utf8");
while(<>) {
  $_ = lc $_;
  print;
}