use Lingua::StopWords qw( getStopWords );
my $rustop = getrustop();
print $rustop;
sub getrustop {
    my $stopwords = getStopWords('ru');
    return join("|",keys %$stopwords);
}


##</code><code>##

дто|разве|может|больше|чтоб|только|есть|конечно|можно|ли|меня|ним|два|совсем|ее|были|сказал|если|будет|еще|по|со|об