#!c:/xampp/perl/bin/perl.exe

$buffer= <STDIN>;
chomp($buffer);
open (FILE,$buffer)|| print "oopa $buffer";
@arquivo = <FILE>;
close(FILE);
$arquivo = join ('',@arquivo);

$arquivo=~ s/ç/&ccedil;/g;
$arquivo=~ s/á/&aacute;/g;
$arquivo=~ s/à/&agrave;/g;
$arquivo=~ s/â/&acirc;/g;
$arquivo=~ s/ã/&atilde;/g;
$arquivo=~ s/é/&eacute;/g;
$arquivo=~ s/ê/&ecirc;/g;
$arquivo=~ s/í/&iacute;/g;
$arquivo=~ s/ó/&oacute;/g;
$arquivo=~ s/õ/&otilde;/g;
$arquivo=~ s/ú/&uacute;/g;
$arquivo=~ s/Ç/&Ccedil;/g;
$arquivo=~ s/Á/&Aacute;/g;
$arquivo=~ s/À/&Agrave;/g;
$arquivo=~ s/Â/&Acirc;/g;
$arquivo=~ s/Ã/&Atilde;/g;
$arquivo=~ s/É/&Eacute;/g;
$arquivo=~ s/Ê/&Ecirc;/g;
$arquivo=~ s/Í/&Iacute;/g;
$arquivo=~ s/Ó/&Oacute;/g;
$arquivo=~ s/Õ/&Otilde;/g;
$arquivo=~ s/Ú/&Uacute;/g;

open (FILE,">$buffer")||  print "eero";
print FILE "$arquivo";
close(FILE);

print "All Korect $buffer";

