#!/usr/bin/perl -w

system ('clear');

$Palavra = "";
while( $Palavra ne "q" ) { 
  print "Escreve um novo nome ou adjectivo (ou q pour finalizar): ";
  $Palavra = <STDIN>;
  chomp $Palavra;
  if ($Palavra eq "q") {
    print "gracinhas e adeus!! \n";
  }
  else{  
    $Plural = $Palavra . "s" ;

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