#!/usr/bin/perl -pl$_.=/(ch|sh?|x|z|[^aeiou]o)$/+s/([^aeiou])y$/$1i/+s/fe?$/v/?es:"s"
car bus potato knife penny exception wolf eye
cars buses potatoes knives pennies exceptions wolves eyes
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!