use Encode;
binmode STDOUT, ":utf8";

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