Select Code to Download

#!/usr/bin/perl

...
print $string, "\n";
print encode_entities($string, "àéèçûîùô");

#!/usr/bin/perl -w
...
 
close(XML);
close(LOGFILE);

éiùûôêçà<><br>aqwzsx