binmode STDOUT, ":utf8";

my $u = __t("Patient Id");
utf8::decode( $u );
print $u,"\n";

##</code><code>##

use Encode;
binmode STDOUT, ":utf8";

my $u = decode( "utf8", __t("Patient Id"));
print $u;