my ($end) = $word =~ /(e?s)$/ || (''); ... #do something with $word $word = "$word$end";