#!/usr/bin/perl -w

##Falta tomar em conta as excepções:
##nomes invariáveis, 
##estrangerismos com consoante final que fam o plural em -s, 
##etc.

system ('clear');

$ConsoanteFinal = "[dlnrs]";
$Zfinal = "z";

print "Insere um nome ou adjectivo em singular : ";

$Palavra = <STDIN>;
chomp $Palavra;

if ($Palavra =~ /$ConsoanteFinal$/) {
    $Plural = $Palavra . "es" ;
}
elsif ($Palavra =~ /$Zfinal$/) {
     $Plural = $Palavra ;
     $Plural =~ s/z$/ces/ ;   
       
}
else {
   $Plural = $Palavra . "s" ;
}

print "O plural de \"$Palavra\" e o seguinte: \n";
print "$Plural\n";