gnu

#!/usr/bin/perluse warnings;my %real_chars = (	'é' => '\\\'e',	'è' => '\`e',	'ê' => '\^e', 	'â' =>	'\^a',	'î' =>	'\^\i', 	'ô' =>	'\^o', 	'û' =>	'\^u',	'Ê' =>	'\^E', 	'Â' =>	'\^A',	'Î' =>	'\^I',	'Ô' =>	'\^O',	'Û' =>	'\^U',	'ë' =>	'\"e',	'ï' =>	'\"\i',	'ü' =>	'\"u',	'Ë' =>	'\"E',	'Ï' =>	'\"I',	'Ü' =>	'\"U',	'ç' => '\c c',	'Ç' => '\c C',	'æ' => '\ae',	'Æ' => '\AE',	'œ' => '\oe',	'Œ' => '\OE',	'Å' => '\AA',);my %latex_chars = (	'\\\'e' => 'é',	'\`e'  => 'è',	'\^e'  => 'ê', 	'\^a'  => 'â',	'\^\i' => 'î', 	'\^o'  => 'ô', 	'\^u'  => 'û',	'\^E'  => 'Ê', 	'\^A'  => 'Â',	'\^I'  => 'Î',	'\^O'  => 'Ô',	'\^U'  => 'Û',	'\"e'  => 'ë',	'\"\i' => 'ï',	'\"u'  => 'ü',	'\"E'  => 'Ë',	'\"I'  => 'Ï',	'\"U'  => 'Ü',	'\c c' => 'ç',	'\c C' => 'Ç',	'\ae'  => 'æ',	'\AE'  => 'Æ',	'\oe'  => 'œ',	'\OE'  => 'Œ',	'\AA'  => 'Å',);print $real_chars{'é'};