The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

for my $word (@words) { for my $case_sensitive (0..1) { print 'Cistem::stem(',$word,',',$case_sensitive,'): ', Cistem::stem($word,$case_sensitive),"\n"; }

  for my $case_sensitive (0..1) {
    print 'Cistem::segment(',$word,',',$case_sensitive,'): ',
    join('-',Cistem::segment($word,$case_sensitive)),"\n";
  }
}