sub _T { my $gettext; my $octets; my $result; $gettext = gettext(@_); $octets = Encode::encode(Wx::Locale::GetSystemEncodingName(), $gettext); $result = Encode::decode_utf8($octets, Encode::FB_PERLQQ); # fix czech small letter c< $result =~ s/\\xC4\?/\x{10d}/g; return $result; }