if ($name =~ /[^aeiou][aiouy]$/) {
   $possessive = $name . "'s";
} elsif ($name =~ /(s|z|x|sj|sch)$/) {
   $possessive = $name . "'";
} else }
   $possessive = $name . "s";
}