my $end = $word =~ /(e?s)$/ ? $1 : '';