#!usr/bin/per
use strict;
use warnings;
use Encode qw(encode decode);
open IN, "<", "test" or die;
open OUT, ">", "test_utf" or die;
while (my $line= <IN>){
    ##unicode = utf-16 I think
    $line = decode('unicode', $line);
    $line = encode('utf-8', $line);
    print OUT $line;

}
close IN;
close OUT