sub utf8ToLatin { my $utfString = new Unicode::String(shift); return $utfString->latin1(); }