#!/usr/bin/perl -w

##variáveis globais:
$V = "aeiou";
$C = "bcçdfhgjklmnñpqrstvxz" ;

system ('clear') ;

$palavra="";
while ($palavra ne "q") {

print "Escreve um nome ou um adjectivo\n" ;

#$palavra = shift(@ARGV) ;
$palavra = <STDIN> ;
chomp $palavra ;


if ($palavra =~ /bisturí|esquí|pirulí/) {
    
    $plural = $palavra . "s" ;
}

elsif ($palavra =~ /[áéíóú][ns]$/) {
   $plural = $palavra ;
   
   $plural =~ s/án$/anes/ ;
   $plural =~ s/én$/enes/ ;
   $plural =~ s/ín$/ines/ ;
   $plural =~ s/ón$/ones/ ;
   $plural =~ s/ún$/unes/ ;
   $plural =~ s/ás$/ases/ ;
   $plural =~ s/és$/eses/ ;
   $plural =~ s/ís$/ises/ ;
   $plural =~ s/ós$/oses/ ;
   $plural =~ s/ús$/uses/ ;
    
} 

elsif ($palavra =~  /^[$C]*[$V]s$/) {
    $plural = $palavra . "es" ;
}


elsif ($palavra =~ /s$/) {
      $plural = $palavra ;
}

elsif ($palavra =~ /[dlnryí]$/) {
   $plural = $palavra . "es" ;
} 
elsif ($palavra =~ /z$/) {
   $plural = $palavra ;
   $plural =~ s/z$/ces/ ;
}
else {
   $plural = $palavra . "s" ;
}

print "O plural de $palavra é $plural\n";


}