With perl 5.8.2 I Would do this:
Use encode;
$ String = "Text in GB2312";
Encode :: from_to ($ String, "GB2312", "UTF8");
Print $ String;