Select Code to Download

use Unicode::Map();
use Unicode::String qw(utf8 utf16);
...
$conf->read ("/usr/lib/perl5/tengsl/tengsl_en.ini");
my $CHARSET = $conf->{ANNAD}->{CHARSET};
my $Map = new Unicode::Map($CHARSET);

return (utf8_to_latin($nafn_fyrirt));

sub utf8_to_latin { $Map->to8(utf8($_[0])->utf16); }