$text = <>;
while ($line = <>) { 
   $text .= $line;
}
$text =~ tr/_<>a-zºªÃÁÀÂÉÊÓÔÕÜÇÍÚíãáàâéêóôõüúçA-Z(),.?!:;/\n/cs;
  # The dash character must be quoted
$text =~ s/([(),.?!:;])/\n$1\n/g;
$text =~ s/\n+/\n/g;
print $text;
exit;
