or download this
my %table = ( 'À' => 'A', 'Á' => 'A', 'Â' => 'A', 'Ã' => 'A', 'Ä' => '
+A', 'Å' => 'A',
'Ç' => 'C',
'È' => 'E', 'É' => 'E', 'Ê' => 'E', 'Ë' => 'E',
...
$str = "Les Misérables";
$str =~ s/([^\x00-\x7F])/$table{'$1'} || '?'/ge;
print "str:$str<br>";