open (CHIAPAS, "Declaración_Universal_de_Derechos_Humanos") or die;

while (<CHIAPAS>) {
	s/[\d,\.\;]//g;
	@read = split(/\s/, $_);
	foreach $word (@read) {
		$think{$word}=$word;
	}
}

open (MESSAGE, ">to_fox");

foreach $word (values %think) {
	print MESSAGE "\"$word\",\n";
}