Perl 處理 unicode txt file

open $FH_o, ">", "ansi.txt";
open $FH_i, "<:encoding(UTF-16)", "unicode.txt";
while (<$FH_i>) {
  @item = split(/\s+/);
  print $FH_o "$item[1]\n";
}
close $FH_i;
close $FH_o;

參考 http://www.issociate.de/board/post/325821/Unicode,_ANSI,_and_regular_expressions_in_Perl_5.8.html