I have posted a node enquiring into stemming algorithms in Perl here, in particular, the Porter algorithm employed in Lingua::Stem, which may be of interest to you.