#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Lingua::Stem::Snowball qw( stem_snowball );

binmode(STDOUT, ":utf8");

# Список слів для стемінгу (українська + англійська для прикладу)
my @words = (
    'книги', 'книга', 'книжок', 'книжками',
    'програмування', 'програміст', 'програмістів',
    'running', 'runs', 'runner', 'ran',
);

# Стемінг (українська мова = 'ukrainian')
my @stems = stem_snowball(
    -locale => 'ukrainian',    # або 'russian', 'english', 'german' тощо
    -words  => \@words,
);

print "Оригінал → Стем\n";
print "-" x 30, "\n";

for my $i (0 .. $#words) {
    printf "%-15s → %s\n", $words[$i], $stems[$i];
}