请教一段代码
我有一个test.txt，编码方式为Unicode，有2行内容为：

football
basketball

执行如下代码：

Perl code

@ARGV = qw/ test.txt /; $^I = ".bak";while(<>){        print;        }

逐行读取后，新生成的test.txt竟然出现乱码（当然还是Unicode编码），原来的2行内容变成一行了，具体为：

football?愀攀愀

原本希望生成的test.txt与原test.txt（即执行后生成的test.txt.bak）相同。
希望高手指点指点，我怎么修改这段代码才能使新的test.txt文件不乱码 ？？？或者给出提示。非常感谢！！

[解决办法]
unicode不是编码。到底是utf-16le，utf-16be，还是utf-8？