请教一段代码

[lion7beck]

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

football
basketball

执行如下代码：

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

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

football਍戀愀猀欀攀琀戀愀氀氀

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

[lion7beck]

我也不知道，“另存为”时需要选择“Unicode”，不知是什么编码方式，哈哈。
[Quote=引用 1 楼 iambic 的回复:]
unicode不是编码。到底是utf-16le，utf-16be，还是utf-8？
[/Quote]

[lion7beck]

看来记事本默认的Unicode就是utf-16le了！！

[Quote=引用 1 楼 iambic 的回复:]
unicode不是编码。到底是utf-16le，utf-16be，还是utf-8？
[/Quote]

[iambic]

unicode不是编码。到底是utf-16le，utf-16be，还是utf-8？